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Introduction 


L'intelligence artificielle est certainement une étape capitale dans le 
développement des ordinateurs, qui aura des conséquences importantes sur 
notre vie dans les prochaines décades. L'objectif principal de ce livre est de 
présenter à un lecteur peu averti quelques concepts utilisés en intelligence 
artificielle, et de lui montrer comment développer de petites routines sur le OL, 
qu’il pourra incorporer dans ses propres programmes. Cet ouvrage ne suppose 
qu’une connaissance superficielle de la programmation, et part des principes de 
base. Nous croyons en effet que c’est essentiel pour comprendre les problèmes 
d'intelligence artificielle, et les résoudre. 

L'idée de base de ce livre est de développer des idées et des routines 
appropriées, pas à pas, en analysant et en comparant les différentes possibilités. 
Plutôt que de vous donner une série de programmes complets, nous vous 
encourageons à essayer les différentes approches pour vous faire voir les 
résultats des différentes techniques. Des organigrammes détaillés sont donnés, 
pour la plupart des programmes. 

Bien que l’accent principal porte sur l’aspect «intelligence artificielle », nous 
en avons profité pour exploiter les points forts du superBASIC, tels que 
PROCédures, FONction, Fenêtre. 

Vous pourrez remarquer que par endroit certaines lignes sont redondantes. 
Elles ont été laissées volontairement, dans un but de clarté. Autant que 
possible, on a évité d’avoir à retaper des lignes, en portant plutôt des 
modifications de routines. Certaines PROCédures sont communes à plusieurs 
chapitres, et nous vous rappelons qu’elles peuvent être sauvegardées séparé- 
ment sur microdrive, puis transférées dans les différents programmes avec la 
commande MERGE. 

Tous les listings du livre sont présentés de façon à montrer clairement le 
déroulement du programme, aussi ils n’apparaîtront pas de la même façon à 
l'écran. Dans beaucoup de cas des espaces et des parenthèses ont été utilisés 
pour rendre les listings plus lisibles ; mais, attention : certains sont indispen- 
sables, ne soyez pas tenté de les faire tous disparaître. 

Tous les programmes ont été rigoureusement testés et les Listings vérifiés avec 
beaucoup de soins, aussi nous espérons que vous n’y trouverez pas d’erreurs. Il 
est triste de constater que les erreurs sont le plus souvent le résultat de « fote de 
frappe » de l’utilisateur. Points-virgules et virgules peuvent avoir l’air d’être sans 
signification, mais leur absence a des conséquences importantes. 


L'intelligence artificielle devient chaque jour plus importante, et nous 
espérons que ce livre vous donnera un aperçu utile dans ce domaine. Qui sait : si 
vous approfondissiez le sujet, vous pourriez persuader votre machine de lire 
elle-même notre prochain livre! 

Une fois encore, merci à Liz d’avoir résisté à la tentation de jeter toutes ces 
feuilles par la fenêtre ou d’en retapisser la pièce. 


Keith et Steven Brain 
Groeswen, juillet 1984. 
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L'intelligence 
artificielle 


L'IMAGINAIRE 


Pendant des générations, des auteurs de 
science-fiction ont envisagé le développement de 
machines intelligentes qui pourraient réaliser 
beaucoup de fonctions propres à l'homme, et même 
le dépasser dans certains domaines, et pour le 
grand public l'intelligence artificielle est 
associée à ces images. 


L'aspect usuel d'un robot est celui d'une 
machine intelligente de forme humaine, qui est 
capable d'exécuter des instructions données 
d'une manière très générale. La plupart des 
gens ont des notions vagues dans les domaines 
techniques, et dans les histoires anciennes ces 
robots avaient très mauvaise presse, étant 
cantonnés dans les rôles de mauvais sujet, 
totalement inconscient et invulnérable. 


Isaac Asimov, qui voyait loin, tissa une 
interminable série d'histoires autour de son 


concept de robot "positronique", et fut 
probablement le premier auteur à essayer de 
coller à la réalité. I1 écrivit son fameux 


"Trois lois de Robotique", qui fixent les règles 
fondamentales à partir desquelles doivent être 
construites les machines capables d'autonomie 
d'action. Mais il est intéressant de remarquer 
qu'il ne pouvait imaginer quand la race humaine 
accepterait la présence de tels robots sur 
terre. "La guerre des étoiles" a amené les 
robots spécialisés R2D2 et C3PO, mais beaucoup 
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de leurs caractéristiques nous semblent étran- 
ges: il y a peut-être une "Union inter-planétai- 
re des robots" et une frontière qui empêche les 
communications directes entre les hommes et 
R2D2. 


Des ordinateurs évidemment intelligents ap- 
paraîssent sous la forme de boîtes sans bras ni 
jambe, lançant obligatoirement des flashs 
lumineux. Les échanges se font évidemment par 
la parole, mais la voix métallique d'autrefois 
n'est plus à la mode, elle a pris une certaine 
personnalité. Que toutes les boîtes se 
ressemblent c'est peut-être une bonne idée, mais 
que toutes les voix ne soient pas celle de Zorro 
dans "Terrahawks"! 


Le KITT de Michael Knight se présente comme 
une machine dotée de raison avec laquelle on 
peut dialoguer, on la préfère au SLAVE huileux 
ou à l'odieux ORAC des "Sept de Blake". ORAC 
semble avoir accumulé une montagne de mépris 
dans sa petite boîte. D'autres écrivains ont 
évalué les difficultés qui peuvent se présenter 
lorsque la personnalité d'une machine est trop 


proche de celle de l'homme. Dans "2001: 
Odyssée de l'espace" l'ordinateur surdoué HAL 
a une dépression nerveuse lorsqu'il se trouve 
devant trop de responsabilités. Dans "Le 


restaurant du bout du monde", la valeur du robot 
transporteur SIRIUS s'effondre car, prévoyant 
l'avenir, il refuse d'avancer lorsqu'il se rend 
compte qu'il risque de se faire démolir; quant 
au "Synthétiseur de boissons nutritives" il a 
manifestement été conçu par le service des 
approvisionnements des chemins de fer bri- 
tanniques, car pratiquement dans tous les cas 
il donne une sorte de thé. Plus récemment la 
silhouette holographique de "Automan" a montré 
des capacités amusantes dans son combat contre 
le crime, bien que sa programmation en ce qui 
concerne les sentiments féminins semble 
présenter des lacunes. 


D'autres thèmes plus ennuyeux sont apparus 
récemment. La caractéristique la plus significa- 
tive de “Wargames" n'est pas que quelqu'un réus- 
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sisse à percer JOSHUA (l'ordinateur de la 
Défense des USA), mais le fait que lorsqu'une 
guerre thermo-nucléaire est déclenchée, la ma- 
chine ne peut s'arrêter avant qu'il y ait un 
gagnant. Dans le “Projet Forbin", les ordina- 
teurs américains et russes s'entendent pour dire 
que les hommes manquent de sagesse. 


LA REALITE 


La notion d'intelligence pour une machine 
suscite une violente querelle d'experts. La 
définition la plus généralement acceptée est 
celle qui a été proposée par Alan Turing à la 
fin des années quarante, à l'époque où les 
ordinateurs avaient la taille d'une maison. 
Plutôt que de poser une série de critères à 
remplir, il a pris du recul vis-à-vis du 
problème. I1 dit que la plupart des gens 
acceptent que les hommes sont intelligents et 
que, si quelqu'un ne peut pas reconnaître s'il a 
affaire à un homme ou à un ordinateur, il doit 
admettre que celui ci est aussi doté 
d'intelligence. Ceci est le fondement du fameux 
test de Turing, qui consiste à mettre un 
opérateur en relation avec une autre entité par 
l'intermédiaire d'un clavier, et à essayer de 
faire dire à celui-ci si c'est une machine ou un 
homme - ce qui n'est pas commode! 


On a raconté beaucoup d'histoires sur ce 
test, la meilleure est celle d'un demandeur 
d'emploi qui est placé devant un clavier et 
livré à lui-même. I1 se rend compte de 
l'importance de ce test pour la suite de sa 
carrière, et se bat vaillamment pour découvrir 


la vérité, mais sans succès. Au bout d'un 
moment, la personne qui le reçoit, revient et 
lui dit : "Bien joué, la machine n'a pas pu 


déterminer si vous êtes un homme, vous êtes la 
personne qu'il nous faut comme inspecteur des 
. La) 

impots! 


Tout le monde a entendu à la télévision que 
l'usage des techniques d'aide à la conception 
par ordinateur étaient très courantes, et que 
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les robots industriels étaient presque seuls 
devant les chaînes de montage des voitures 
(jusqu'aux autocollants sur les vitres qui indi- 
quent "Dessinée par un ordinateur, construite 
par un robot, et conduite par un idiot"). En 
fait ces robots industriels ont fort peu d'in- 
telligence, ils ne font que suivre un programme, 
et ont fort peu de décisions à prendre. Le robot 
qui fait la peinture a appris les gestes d'un 
opérateur et il est incapable de peindre un nou- 
vel objet sans une autre intervention de 
celui-ci. 


Par ailleurs la nouvelle génération de 
robots a des senseurs et un logiciel beaucoup 
plus sophistiqués qui lui permettent de détermi- 
ner la forme, la couleur et la texture des 
objets, et de prendre des décisions beaucoup 
plus rationnelles. Tous ceux qui ont vu la 
légendaire "micromouse" courir tout droit 
jusqu'au centre du labyrinthe ne s'étonneront 
pas de notre foi dans le robot intelligent du 
futur, même si celui-ci n'a ni bras ni jambes, 
ce qui est sans importance. 


Un autre domaine important où l'intelligence 
artificielle est d'usage courant est celui des 
systèmes experts; beaucoup d'entre eux sont 
capables de faire aussi bien sinon mieux que des 
hommes, dans le domaine des prévisions météo par 
exemple. On rencontre ces systèmes experts dans 
beaucoup de domaines et en particulier dans 
celui du diagnostic et du traitement médical. 
Les médecins n'ont pas à s'inquiéter, car les 
ordinateurs ne savent pas ausculter. 

Une des principaux obstacles à la diffusion 
des ordinateurs est l'ignorance et l'entêtement 
des utilisateurs qui, à la rigueur liront les 
instructions, mais attendront de la machine 
qu'elle prenne en compte les spécificités de 


leur problème. L'usage du langage naturel se 
développe rapidement, et les ordinateurs de la 
"cinquième génération" seront beaucoup plus 
conviviaux. 


La plupart des travaux sérieux en 
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intelligence artificielle sont développés dans 
des langages plus appropriés, comme LISP ou 
PROLOG, mais malheureusement ceux-ci sont 
inintelligibles pour l'usager moyen! Les 
routines du SuperBASIC qui suivent ne vous 
donneront pas la clé de la domination du monde, 
mais elles vous donneront une bonne appréciation 
des possibilités et des problèmes posés par 
l'intelligence artificielle. Comme tous les 
spécialistes, les experts dans ce domaine ont 
leur propre jargon pour impressionner les novi- 
ces. Cependant, comme ce livre s'adresse à 
Monsieur Tout-le-Monde, nous avons délibérement 
évité l'emploi de ce jargon chaque fois que cela 
était possible, car nous pensons qu'il jette la 
confusion dans les esprits. 


2 


L'exécution 
des ordres 


Comme votre ordinateur n'a aucune 
intelligence, vous ne pouvez dialoguer avec lui 
qu'à un niveau élémentaire de façon très 
formelle. Nous vous montrerons plus loin 
comment surmonter cette barrière du langage, 
mais commençons par apprendre à marcher avant de 
courir. Les premiers pas consistent à fixer une 
série d'ordres auxquels correspondent des 
réponses pré-établies. 


Nous allons commencer par examiner le 
problème de faire comprendre à votre ordinateur 
les directions d'une boussole. Au premier 
abord, la façon la plus simple de le programmer 
consiste à utiliser une boucle REPeat qui 
demande une entrée (INPUT) à l'utilisateur, et 
contient une ligne IF-THEN pour chacune des pos- 
sibilités. (Organigramme 2.1.) 


Nous allons utiliser deux PROCedures, qui 
seront peu à peu affinées tout au long du 
chapitre. Pour le moment START efface 
simplement l'écran, tandis que VERS compare 
l'entrée avec les quatre mots-clés. 


10 START 
20 VERS 


10000 DEFine FKRKQCedure VERS 
10010 CLS 
10990 END DEFine STAKT 
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. OUI | PRINT 


11000 DEFine FROCedure VERS 

11010  REFeat DIRECTION 

11020 UNDER O:FRINT "DIRECTION 7" 

11070 INFUT CHAINE# : UNDER 1 

11100 IF CHAINE#= "NORD" THEN FRINT "NORD" 
11110 IF CHAINE#="SUD" THEN PRINT "SUD" 
11120 IF CHAINE#="QUEST" THEN FRINT "OUEST" 
11130 IF CHAINE#="EST" THEN PRINT "EST" 
11980 END REFeat DIRECTION 


11990 END DEFine VERS 


Organigramme 2.1: Les directions de la 
boussole. 


Pour distinguer clairement l'INPUT de la 
réponse du QL, nous avons souligné cette 
réponse, et le slash inverse force le saut à la 
ligne. 


UN PETIT PROBLEME 


En testant cette routine vous allez tomber 
sur un petit problème courant: l'ordinateur ne 
trouve l'égalité que pour les lettres majuscu- 
les. 

Ainsi "NORD" est égal à "NORD", ‘nord" à 
"nord", mais pas à "NORD". 


L'exécution des ordres g 


La façon la plus simple est de tester si le 
premier caractère de CHAINES est une majuscule. 
Toutes les majuscules ont un code inférieur à 
91, on peut donc envoyer un message 
d'avertissement s'il est nécessaire d'appuyer 
sur ALPHA. 


11040 IF CODE (CHAINE#) #90 THEN 

11050 CSIZE Z,1 :FRINT "appuyez sur ÀALF 
HA!": CSIZE 1,0 

11060 NEXT DIRECTION 

11070 END IF 


(En SuperBASIC il n'est pas nécessaire de 
spécifier la première lettre, CHAINE$(1), car 
CODE sauf indication contraire retourne la va- 
leur du premier caractère d'une chaîne.) 


Une approche plus élaborée consiste à 
demander à l'ordinateur de transformer automati- 
quement tous les caractères entrés avec une 
casse particulière. (Majuscule égale casse hau- 
te). Pour comprendre le fonctionnement, il faut 
regarder le tableau de représentation binaire 
des caractères. (Tableau 2.1.) Vous remarquerez 
que la seule différence entre une lettre du haut 
et la lettre correspondante du bas porte sur le 
bit 6, qui vaut 0 pour les majuscules, et 1 pour 
les minuscules. 


Pour forcer à la fois majuscules et 
minuscules en minuscules, il faut positionner le 
bit 6 à 1. Pour l'inverse il faut positionner 


DS 


le bit 32 à O0. 


Pour positionner le bit 6 il suffit de faire 
l'opération OÙ (OR) sur le code du caractère. 


'A'=65 0T000001 
OR 32 00100000 
01100001 = 97 (‘a') 
ra "297 01100001 
OR 32 00100000 
01000001 = 97 ('a') 
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Pour mettre le bit 6 à 0, il suffit de faire 
l'opération NON (NOT) sur le code du caractère. 
Ceci le met à 0 quelle que soit sa valeur ini- 
tiale. 


'A'=65 01000001 
NOT 32 00100000 
01000001 = 65 ('A') 
‘a '=97 01000001 
NOT 32 00100000 
01000001 = 65 ('A') 


Tableau 2.1: Représentation binaire des 
caractères. 


Nous allons définir une FONction (SAISI$) 
qui effectuera l'une ou l'autre de ces conver- 
sions. Elle n'utilise que l'opération OÙ du QL 
étant donné qu'une seule FONction suffit pour la 
conversion dans les deux sens (en lui passant un 
paramètre). 


La FONction SAISI$ est appelée à la ligne 
11030 qui remplace la précédente. 


Le paramètre passé (cs) est soit 0, pour la 
conversion en minuscules, soit 1, pour la 
conversion en majuscules. 
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11050 CHAINE#=SAISISE (13 : UNDER 1 
11040 KREMark ANNULEE 
11050 REMark ANNULEE 
11060 REMark ANNULEE 
11070 REMark ANNULEE 


L'entrée (INPUT i$) s'effectue comme aupara- 
vant,mais à l'intérieur de la boucle SAISIS-CAR, 
chaque caractère est passé en revue et comparé 
bit à bit par l'intermédiaire d'une opération ou 
(/}) avec 32. Cela force le bit 6 à 1. On notera 
cependant que la valeur de l'opération 32* cs 
(le paramètre passé) est tout de même soustrait 
du résultat. Si cs vaut zéro, cette opération 
sera sans effet et il en résulte des minuscu- 
les.En revanche si cs vaut 1, 32 sera soustrait, 
et cela agira alors sur le bit 6 et il en résul- 
tera de ce fait des majuscules. Lorsque la fin 
de la chaîne est atteinte (n=LEN (i$))} on sort 
alors de la boucle SAISIS-CAR et le résultat est 
RETourné à la ligne d'appel. (Organigramme 2.2.) 


20000 DEFine FuNction SAISIS#(cs) 


20010 LOCal i#,n,t#,r# 

20020 nazi 

20030 r$z" 

20040 INFUT if 

20050 REPeat SAISIS CAK 

20060 t#=i#(n) 

20070 r£=rs & CHR#SÇ((CODE(TE) 11 32)— 
(32*#c5)) 

20080 IF n=LEN(i$) THEN EXIT SAISI 
S_CAR 

20090 nen+i 

20100 END REFeat SAISIS CAK 

20110 RETurn r$ 


20120 END DEFine SAISIS# 


Notez que toutes les variables utilisées 
sont LOCales et propres à la fonction, et sont 
en minuscules pour les distinguer des variables 
globales. 


La routine modifiera tous les caractères, ce 
qui peut poser des problèmes, par exemple un 
espace (CHR$(32)) sera changé en CHR$(0) qui 
n'est pas visualisable! On peut éviter la 
conversion des espaces et des numériques en 
limitant la conversion à certains codes. Une 
façon simple de faire cette restriction à des 
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caractères de code supérieur à 32 est de 
multiplier (32*cs) par NOT CODE(t$) 65. Si le 
code de t$ est inférieur à 65, (32*cs) ne sera 
pas soustrait, et le caractère sera inchangé. 


20070 r£zrét & CHREC(CODE (EH) 11 F2) —-(IT*x 
cs) * NOT CODE(t#):65) 


Organigramme 2.2: PROCedure SAISIS/$. 
ORDRES INVALIDES 


Si vous tapez autre chose que les quatre 
mots-clés, rien n'apparaîtra à l'écran, sinon 
l'attente d'une nouvelle entrée. Il serait pré- 
férable que votre ordinateur indique clairement 
que la commande est invalide. Vous pourriez a- 
jouter un test indiquant qu'aucune commande va- 
lide n'a été trouvée, mais cela serait intermi- 
nable, voire même impossible si la liste des 
mots-clés était plus longue. 
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11140 IF CHAINES#E NORD" AND CHAINEZS %"S 
UD" AND CHAINEÆS "EST" AND CHAINE#E "OUEST OT 
HEN 


11150 CSIZE 1,1:FRINT "ORDRE INVALIDE": 
CSIZE 1,0 
11160 END IF 


Pa 


En revanche, lorsqu'un mot-clé a été recon- 
nu, il suffit d'ajouter une instruction NEXT à 
la fin de chaque ligne de test (IF THEN) pour 
revenir directement à la ligne où l'entrée est 
demandée. Si aucun des tests n'est vérifié, le 
programme arrive directement à la ligne 11150 et 
le message d'avertissement vient s'afficher. De 
toute façon, il est bien plus logique d'ajouter 
cette instruction NEXT et de sauter ainsi direc- 
tement à la ligne de l'entrée, car cela évite 
d'effectuer une longue suite de tests inutiles 
étant donné qu'un mot-clé a nécessairement été 
trouvé. 


11100 IF CHAINE#="NORD" THEN FRINT "NORD" 
:NEXT DIRECTION 

11110 IF CHAINE#="SUD" THEN FRINT "SUD'"':N 
EXT DIRECTION 

11120 IF CHAINE#="OUEST" THEN FRINT "OUES 
T's NEXT DIRECTION 

11150 IF CHAINE#="EST" THEN FRINT "EST'IN 


EXT DIRECTION 

11140 REMark ANNULEE 
11150 REMark ANNULEE 
11160 REMark ANNULEE 


born) 
at 
a+ 
>] 2 | 


NON 


Organigramme 2.3: Suppression des tests inutiles 
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UN PEU D'ACTION. 


Cela va avoir pour effet d'afficher les 
mots-clés à l'écran, mais il ne se passera rien 
à proprement parler. Nous allons donc vous pré- 
senter ‘'Boris', la tortue, qui va nous servir de 
modèle et se déplacer sur l'écran selon nos or- 
dres. Pour plus de commodité et pour bien diffé- 
rencier le texte de l'image, nous allons séparer 
l'écran en deux fenêtres grâce à la PROCedure 
ECRAN. Celle-ci coupe ce dernier verticalement 
avec la fenêtre #1 à gauche (blanche) et la fe- 
nêtre #2 à droite (verte). Le texte apparaîtra 
dans celle de droite,et la trace de ‘"Boris' dans 
celle de gauche. 


DEFine FRÜOCedure ECK&N 
MODE 4 
WI NDOUW + bn 
ECRDER #1,1, 
CSIZE #1,1,0. 


FAFER #1,4 
INH #1,0 

CLS#1 

WINDOW #2,220,700,26,16 


RORDER 42,1, 
CSIZE #2,1,0 
PAPER 42,7 

IN #2,0 

CLS #2 

IN 40,7 

2150 CLS #0 

12160 END DEFine ECRAN 


La PROCedure START doit maintenant appeler 
ECRAN, fixer l'échelle du tracé, et placer la 
tortue à sa position de départ. Les coordonnées 
absolues sont 10,10, canal #2, mais il est plus 
simple d'exprimer les mouvements en déplacements 
relatifs par rapport à ce point, avec les 
variables X% et Y5. 


10010 ECRAN 

180 SCALE #E,20,0,0 
LINE #2,10,10 
10640 XA=ûs YA 
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Le déplacement est géré par la PROCedure 
TRACE qui dessine une ligne à partir du dernier 
point (0,0). Remarquez que les modifications 
sont passées à TRACE par X1 et Y1. 


15000 DEFine FRKOCedure TRACE (X1,Y1) 
1:010 LINE _R #2,0,0 TO X1,Y1 
15020 END DEFine TRACE 


I1 faut maintenant ajouter la réponse à 
notre ordre, le message indiquant qu'il a été 
compris, et afficher la position courante. 
(Organigramme 2.4). 


11020 UNDER Os: FRINT\"DIRECTION P'\AUXE"s XY4 
; yen : YZ 

11100 IF CHAINE#="NOKRD" THEN PRINT "NORD 
MaVA=Y Ati: TRACE O,1:NEXT DIRECTION 

11110 IF CHAINE#="SUD" THEN PRINT "SUD': 
VA=Y A1: TRACE O,-1:NEXT DIRECTION 

11120 IF CHAINE#= "OUEST" THEN PRINT "QUE 
ST':X2=X 4-1: TRACE -1,0:NEXT DIRECTION 

11130 IF CHAINE#="EST" THEN FRINT "EST'": 


XA=X +1: TRACE 1,0:NEXT DIRECTION 


UTILISATION DE PROCEDURES DE DIRECTION 


11 s'agit ici d'un exemple très simple; ce- 
pendant lorsque le résultat de vos ordres de- 
vient plus complexe, il convient de mettre les 
réponses dans des PROCedures séparées. 
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11100 
RECTION 
11110 
CTION 
11120 
DIRECTION 
11150 
CTION 


Organigramme 2.4: Réponse. 


IF 


IF 


CHAINE#="NGRD" THEN NOKD:NEXT DI 
CHAINE#= "SUD" THEN SUD: NEXT DIRE 
CHAINE#= "OUEST" THEN OUEST:NEXT 


CHAINE#="EST" THEN EST:NEXT DIRE 
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14000 DEFine FKOCedure NORD 


14010 PRINT "VERS LE NORD" 
14030 YA=V4+i 
14070 TRACE O©,1 


14090 END DEFine NORD 


14100 DEFine FROCedure SUD 
14110  FRINT "VERS LE SUD" 
14170  VYY=V4-i 

14170 TRACE O,-1 

14140 END DEFine SUD 


15000 DEFine FROÜCedure OUEST 


15010 PRINT "VERS L'OUEST" 
15020 XA=X A1 
15050 TRACE 1,0 


15040 END DEFine OUEST 


14000 DEFine FKOCedure EST 
LoOÏO PRINT "VERS L'EST" 
180720 XX A+] 

LéUEO TRACE 1,0 

16040 END DEFine EST 


UNE METHODE PLUS SOUPLE. 


On peut augmenter le nombre de tests 
IF-THEN à l'infini, (dans les limites de la 
mémoire disponible!), mais cette méthode est 
assez grossière et pose des problèmes lorsque le 
programme se complique. Une méthode plus souple 
consiste à mettre mots-clés et réponses en DATA, 
puis à les mémoriser dans des tableaux alpha- 
numériques. 


I1 faut d'abord dimensionner correctement C$ 
pour les mots-clés, et R$ pour les réponses. 
En SuperBASIC les tableaux alphanumériques doi- 
vent être dimensionés à la fois selon le nombre 
d'éléments (3) et la longueur des chaînes (20) 
qu'ils doivent contenir. (Avec la dimention 0 on 
dispose en tout de 4 directions possibles). Il 
faut ensuite réfléchir à la façon de comparer 
les chaînes contenues dans le tableau avec cel- 
les entrées. 
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En effet, la longueur d'une chaîne entrée 
est simplement égale au nombre de caractères 
qu'elle contient alors que la longueur de celles 
contenues dans le tableau est toujours de 20, 
l'espace non utilisé étant "rempli" avec des 
CHR$ (0). 


Si l'on entre NORD, il n'y a pas égalité a- 
vec l'élément du tableau qui contient NORD (plus 
16 positions vides), sauf si on force le format 
de la CHAINES en lui donnant une dimension DIM 
(CHAINES,20). 


10090 DIM CHECS,E£O0), R#CE,20), CHAINE# (CE) 


Si l'on place les mots-clés et les réponses 
par paires dans les lignes DATA, il sera plus 
facile de les associer et de les lire chacun 
leur tour. (Voir tableau 2.2.) 


Numéro mots-clés Réponse 
d'élément c$ R$ 
0 NORD VERS LE NORD 
1 SUD VERS LE SUD 
2 OUEST VERS L'OUEST 
3 EST VERS L'EST 


Tableau 2.2: Contenu des tableaux 
"mots-clés" et "réponses". 


Maintenant nous allons ajouter quelques 
lignes à la PROCedure START pour initialiser les 
tableaux (les remplir avec nos mots). Lors du 
RUN le superBASIC n'exécute pas automatiquement 
un RESTORE, il faut donc le préciser. 


10060  RESTORE 


10100 DATA "NORD" ,"VERS LE NORD", "SUD", "VERS 
LE SUD","QUEST","VERS L'OUEST","EST","VERS L 
"EST" 

10200 FOR N=0 TO & 

10210 READ CH(N):READ RE UN) 

10220 END FOR N 


Tous les tests IF-THEN peuvent être rempla- 
cés par une seule boucle qui comparera successi- 
vement chaque élément du tableau des mots-clés 
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(0$) avec le mot que vous aurez entré. (Organi- 
gramme 2.5.) 


11100 FOR Neo TO 2 

11110 IF CHAINEZS CE CN) THEN 
11120 END FOR N 

11150 REMark  ANNULEE 

11140 REFarEk  ANNULEE 

11160 ELLE 

11170 FAINT KRÆ CN) 

11200 END IF 


A présent, lorsqu'aucun des mots-clés ne 
correspond avec ceux contenus dans le tableau 
rien ne se passe; dans le cas contraire (ELSE) 
la réponse (R$(N)) correspondante vient s'affi- 
cher. 


he rss 
ep 


Organigramme 2.5: Une méthode plus souple. 


Nous nous retrouvons maintenant à l'étape 
précédente où rien ne se produit vraiment lors- 
qu'une correspondance est trouvée. Nous allons 
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donc remédier à ceci en rajoutant de l'action 
grâce à la PROCedure POSITION qui sera appelée 
dès qu'un mot-clé sera détecté. 


La variable N (qui représente le nombre d'é- 
léments vérifiés dans le tableau) peut être uti- 
lisée comme "pointeur" pour indiquer quel mot- 
clé aura été reconnu. La PROCedure POSITION uti- 
lise en effet cette valeur à l'intérieur du test 
SELECT ON N pour se brancher vers les routines 
adéquates. Ces dernières sont similaires à 
celles décrites précédemment si ce n'est qu'il 
est désormais inutile d'afficher un quelconque 
message ceci étant fait par R$(N). 


FRüCedure FOSITION 
t CN 


14040 


D, ] 
Lé4Toc 
14110 1 
Lie M | 
141460 REFark  ANNULEE 
ak  ANNULEE 
LA +] 
TRACE 1,0. 


REMark GNNULEE 
REMarE  ANNULEE 
CIN Nes 


END SELect 
END DEFine FOSITION 


EXTENSION DU VOCABULAIRE 


Les tableaux peuvent aisément être agrandis 
pour pouvoir ainsi contenir plus de mots. Si 
nous définissons une variable WD% qui contient 
le nombre de mots, nous pourrons l'utiliser suc- 
cessivement pour dimensioner les tableaux ainsi 
que pour les boucles de lecture et de recherche. 
Ceci donne une routine générale qui peut être 
facilement modifiée. 


L'exécution des ordres 21 


ÉS750) WD£=S: DIM CÆ(WDX,20) ,R#(WDZ,20) ,CHAIN 


10200 FOR N=0O TO WD% 
11100 FOR N=OQ TO WD% 

Ajoutons par exemple. des directions 
intermédiaires qui modifient à la fois X et Y. 
10050 WD4=7: DIM CH(WDX,20) ,R#(WD%X,20) ,CHAI 
NE (20) 

10110 DATA "NOKD-EST'"',"VERS LE NORD-EST","S 
UD-EST'"',"VERS LE SUD-EST" 
10120 DATA "SUD-QUEST'","VERS LE SUD-OUEST", 


"NORD-QUEST!,"VERS LE NORD-OUEST" 


Ajoutons quelques actions : 


REMark  ANNULEE 
REMark  ANNULEE 


14400 ON N=4 

14410 VV Ati: XA=XATHI 
14420 TRACE 1,1 

14500 ON N=S 

LE Lo Vs Yi: XA=XA+1 
14520 TRACE 1,-1 
14810 ON N=é 

14620 NY Ari: XA=X A1 
14630 TRACE —1,-1 
14700 ON N=7 

14710 Vs YAtls XX A1 
14720 TRACE —1,1 


147350 END SELect 
1474ûù END DEFine FOSITION 


SUPPRESSION DE LA REDONDANCE. 


Jusqu'à présent toutes les réponses contien- 
nent l'expression "VERS LE" qui a effectivement 
été rentrée dans chaque ligne DATA. L'exercice 
de la frappe peut avoir du bon mais il est tout 
de même plus logique de remplacer cette expres- 
sion par une variable alphanumérique une bonne 
fois pour toute. Remarquez l'espace à la fin de 
celle-ci pour éviter que le mot qui suit ne soit 
directement collé. Désormais tous les "VERS LE" 
peuvent être supprimés des lignes DATA pour être 
avantageusement remplacés par Gf$. 
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10100 DATA "NORD", "NORD", "SUD" , "SUD", "OUEST" 
, "OUEST" ,"EST" ,"EST" 

10110 DATA "NORD-EST", "NORD-EST", "SUD-EST" ," 
SUD-EST" 

10120 DATA "SUD-OUEST", "SUD-OUEST", "NORD-EST 
", "NORD-EST" 

10130 G#="VERS LE" 

11170 PRINT G#,R# (CN) 


A présent cela apparaît un peu stupide étant 
donné que les deux tableaux contiennent exacte- 
ment les mêmes mots; il serait en effet plus lo- 
gique de supprimer R$ et d'utiliser O$(N) pour 
afficher aussi les réponses. IL est exact que 
dans ce cas précis cela ne poserait aucun pro- 
blème, mais dans le cas où les réponses ne sont 
pas uniquement une simple répétition des chaînes 
entrées (ce qui arrive le plus souvent) cela 
n'est pas possible et un second tableau est in- 
dispensable. 


Si vous regardez attentivement les PROCedu- 
res "d'action",vous vous rendrez compte que leur 
principal rôle est de mettre à jour les valeurs 
de X% et Y%. Nous pourrions en fait incorporer 
ces valeurs dans des lignes DATA et supprimer 
cette mise à jour du même coup! IL faut, pour 
cela, créer deux tableaux supplémentaires (pour 
les coordonnées X et Y), ajouter les valeurs ap- 
propriées dans les lignes DATA après chaque ré- 
ponse et enfin lire (READ) les informations par 
groupe de quatre (entrée (INPUT), REPONSE,  Dé- 
placement en X, Déplacement en Y - voir Tableau 
PEN D D 


10060  WD4=7: DIM C#(WDY4,20) ,R£ (WD4,20) , CHAIN 

E£ (70) ,X (WD%4) , Y (WD%) 

10100 DATA "NORD", "NORD" ,0,1,"SUD","SUD",0,- 
1,"OUEST",-1,0,"EST","EST",1,0 

10110 DATA "NORD-EST" ,"NORD-EST",1,1,"SUD-ES 

T","SUD-EST",1,-—1 

10120 DATA "SUD-OUEST" ,"SUD-OUEST",-1,-1, "NO 

RD-OUEST", "NORD-OUEST" ,-1,1 

10210  READ C#(N): READ R#(N):READ X(N) : READ 
Y (N) 


On peut maintenant détruire les lignes 
redondantes et modifier la PROCedure TRACE de 
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façon à obtenir les bonnes valeurs pour X% et Y3 
(Organigramme 2.6). 


Numéro mot-clé Réponse Déplacements 

d'élément C$(N) R$(N) X(N) Y(N) 
1 NORD NORD 0 -1 
2 SUD SUD 0 1 
3 OUEST OUEST -1 (0) 
4 EST EST 1 0 
5 NORD-EST NORD-EST 1 -1 
6 SUD-EST SUD-EST 1 1 
7 SUD-OUEST SUD-OUEST -1 
8 NORD-OUEST NORD-OUEST -1 -1 


Tableau 2.3: Déplacements incorporés dans 
un tableau en X et en Y 


14010 XA= CUXART) + CX CN) #2) ) Ts VA CCVAKTZ) + CY CN 
KID) SE 

14020 TRACE X(N),Y CN) 

14050 REMark DLINE 14070 TO 14730 


Cette utilisation d'une série de tableaux 
liés entre eux est très courante,nous la verrons 
dans de nombreux programmes. 


—] 


Organigramme 2.6: Utilisation de tableaux 
en chaîne. 
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UTILISATION DE COMMANDES ABREGEES. 


Jusqu'ici nous avons donné des ordres en 
toutes lettres, mais cela exige une frappe lon- 
gue. Si vous vous sentez un peu paresseux, vous 
aurez peut-être l'idée de remplacer les ordres 
par une seule lettre. Cependant, à moins d'uti- 
liser des lettres au hasard, il faudra vérifier 
que deux ordres ne commancent pas par la même 
lettre. Pour coder les huit directions ci-dessus 
nous aurons besoin de deux lettres: N,NE,E,SE,S, 
SO,0,N0O. 


10100 DATA "N',"NORD",0,1,"S", "SUD",0,-1 
0 FE MQUEST "el, 0 "En", EST", L, 0 

10110 DATA "NE", "NORD-EST", 1,1,"SE", "SUD-EST", 14 
+3 


LO120 DATA "SQ","SUD-QUEST",-1,-1, "NO", "NORD- 
QUEST'",-1,1 


Remarquez que seuls les ordres ont changé, les 
éléments de réponse sont tous dans le second ta- 
bleau, et restent par conséquent identiques. 


EGALITE SUR LA PREMIERE LETTRE 


Jusqu'à présent, nous avons toujours vérifié 
qu'il y avait une correspondance exacte entre la 
chaîne entrée et les mots-clés. Nous pourrions 
cependant nous arranger de telle façon que des 
mots ayant une signification assez proche soient 
aussi reconnus. Nous pourrions, par exemple, 
nous contenter de faire un test sur les premiè- 
res lettres de chaque chaîne uniquement (soit 
CHAINES (1)). 


11080 CHAINE#=CHAINESZ (1) 


Cela marchera avec NORD, SUD, EST, OUEST, 
mais il y aura évidemment des problèmes avec les 
directions intermédiaires: nous les supprime- 
rions une nouvelle fois. 
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10050 WD'£=: DIM CE(WD%, 20) ,R£ CND%,20) , CHAI 
NE (20) , X (WD%) , Y (WD%) 

10110 REMark ANNULEE 

10120 REMark ANNULEE 


Par contre il y a beaucoup de mots commençant 
A . Ld Ld 

par N,S,E et O, tous vont être considérées par la 

machine comme une direction valide. 


Par exemple OUI VERS LE NORD donnera VERS 
L'OUEST. 


Une meilleure méthode consiste à comparer 
quelques lettres et non pas une seule. Dans 
notre exemple les trois premières lettres des 


quatre directions principales sont tout à fait 
caractéristiques. 


NOR, SUD, EST, OUE 


Si on les utilise comme commandes, les mots sui- 
vants seront considérées comme équivalents: 


NORD, NORMAL, NORVEGE 
Tandis que les mots suivants ne le seront pas: 
NAIN, NOM, NATTE. 

Nous avons besoin de prendre les trois pre- 


mières lettres de l'entrée CHAINE$(1 à 3), et de 
les comparer avec une liste de DATAS modifiée. 


10100 DATA "NOR", "NORD",0,1, "SUD", "SUD" ,0, 
-1,"OUE", "OUEST" ,-1,0,"EST", "EST", 1,0 
11090 CHAINE#=CHAINEZ (1 TO 2%) 


DES COMMANDES ENCHAINEES. 


Dans les routines ci-dessus, nous avons 
considéré les positions intermédiaires comme des 
entités particulières, mais si nous pouvions 
donner plusieurs ordres à la suite, il ne serait 
pas nécessaire de le faire. IL y a toujours plu- 
sieurs façons pour se rendre en un point quel- 
conque, et si plusieurs ordres pouvaient être 
donnés en une seule fois, il ne serait plus né- 
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cessaire de se préoccuper des directions comme 
NORD-EST, qui serait traitée comme une combinai- 
son de NORD et EST. 


Ceci nous amène au problème du découpage 
d'une entrée en plusieurs mots. Comment recon- 
naître qu'une suite de caractères forment un 
mot? La réponse la plus évidente est tout sim- 
plement qu'il y a des espaces entre eux. Si nous 
cherchons la présence de blancs dans la chaîne 
entrée, nous pourrons par conséquent séparer la 
phrase en plusieurs mots. Le plus simple est 
d'utiliser la FONction INSTR qui recherche la 
présence d'une suite de caractères d'une chaîne 
dans une autre. 


Commençons par incorporer INSTR dans une 
FONction DECOUPAGE, qui est appelée à la ligne 
11080. 


15000 DEFine FuNction DECOUFAGE 
15010  GF4=" " INSTR CHAINE 
15020 PRINT "SFX "3 GPA 


150906 END DEFine DECOUFAGE 


Ici on commence par vérifier si le premier ca- 
ractère de CHAINES est un espace. Si ce n'est 
pas le cas, le programme continue jusqu'à la fin 
de CHAINES. Si aucun espace n'est trouvé, SP3% 
sera mis à 0. Si un espace est trouvé SP% pren- 
prendra comme valeur le nombre de caractères 
examinés. (Organigramme 2.7) La ligne provisoire 
15030 affiche SP% pour observer le fonctionne- 
ment de INSTR. 


Contrairement à ce que nous avons fait 
jusqu'à présent, en francais il faudra entrer 
les directions intermédiaires sans trait 
d'union, NORD EST et non pas NORD-EST. 

Essayons : 


NOR OUE 


SP%=4 
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PRINT 
POSITION 
ESPACE 


Organigramme 2.7: Localisation des espaces. 


NORD OUEST 


SP$=5 
NOR NOR OUEST 
SP%=4 


(Remarquons qu'il y aura un message ‘demande 
invalide" si CHAINES n'est pas traduit par ses 
trois premiers caractères seulement.) 


La longueur du mot est donnée par SP% et 
seul le premier espace a été trouvé. Pour 
trouver les autres, il faudra encore faire un 
effort. 


11 faut d'abord ajouter un espace devant le 
premier mot pour qu'il ait le même format que 
les autres, puis définir le nouveau point de 
départ de la recherche (ST3=0). 


110840 CHAINEZHE" ME CHAINE# 3 ST£E0 
LLOSO DÉCOUPAGE 


La fonction DECOUPAGE est maintenant modifiée, 
pour permettre le découpage de toute l'expres- 
sion entrée. (Organigramme 2.8.) Dès qu'un espa- 
ce a été trouvé, à SP%, une nouvelle position de 
départ est fixée un caractère plus loin, à ST, 
un mot est découpé trois caractères après l'es- 
pace, de ST% à ST%+2, et la CHAINES est tron- 
quée de façon à ne contenir que la partie qui 


28 Intelligence artificielle sur Sinclair QL 


n'a pas été testée, CHAINES (ST$ TO). 


LSO10 GFAe"  INSTR CHAINE 
LHOFO STA=SFA +1 
14070 WE=CHAINEZ(CSTX TO STA+E) : CHAINE#=C 


HAINEZ (STX TO) 


Comme DECOUPAGE a été définie comme FONction, 
nous pouvons l'utiliser pour renvoyer différen- 
tes valeurs. Nous renverrons -1 si aucun espace 
n'a été trouvé (SP%=0), et 0 s'il y a eu coupure 
d'un mot. 


135070 IF SF£e0 THEN KETurn —1 
13080 RETurn © 


sea 
AJOUTER 
ESPACE 


T 
u 


CARACTERE 
SUIVANT 


ou! 
Organigramme 2.8: Découpage d'une 
expression. 
Maintenant utilisons la valeur renvoyée par 
DECOUPAGE pour sortir de la boucle MOTS dès 


qu'un mot a été trouvé. 


11090 IF DECOUFAGE THEN EXIT MOTS 
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Maintenant la frappe de: 

NORD OUEST 

donne : 

VERS LE NORD 

VERS L'OUEST 

de même : 

NOR NOR EST 

donne : 

VERS LE NORD 

VERS LE NORD 

VERS l'EST 

11 serait beaucoup plus propre de supprimer tous 
ces "VERS LE" redondants, et de mettre toutes 
les directions sur une même ligne. I1 faut 
imprimer une seule fois G$, immediatement avant 
le découpage. Chaque fois que nous comparons le 
mot courant à ceux qui sont mémorisés, nous 
imprimons R$(N) s'il y a égalité. Le point- 


virgule empêchera le saut à la ligne, mais il 
faudra aussi ajouter des espaces entre les mots. 


D CHAINEZRSN OMS CHAINEZ: STÉe0: FRINT 
11170 FAINT RE CND at 

Maintenant: 

NORD EST SUD OUEST 


donne : 


VERS LE NORD EST SUD OUEST. 
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La compréhension 
du langage 
naturel 


Jusque-là, nous avons dialogué avec l'or- 
dinateur d'une façon restrictive, car il n'est 
programmé pour comprendre que peu de mots 
ou de lettres et ne les reconnaît que dans la 
mesure où ils sont entrés correctement. 


Par exemple, si vous mettez un espace avant 
ou après l'ordre que vous donnez, celui-ci sera 
rejeté lorsque vous le validerez; cela vient du 
fait que nous vérifions si les deux chaînes 
correspondent exactement. 


Cependant, dans la vie courante, chacun 


utilise ce que l'on appelle une “langue 
naturelle", qui est très élaborée et très 
variable et que seul le cerveau humain est 
capable d'appréhender correctement. Même si 


nous oublions les différences entre le Français 
et le Canadien ou entre les particularités 
régionales (est-ce que "je te pique ta voiture" 
signifie vraiment "je te prends ta voiture"?), 
une langue pose un nombre infini de problèmes. 


Même le système le plus élaboré du monde ne 
peut répondre à tous les cas: rappelons à ce 
propos cette vieille histoire: la CIA mit au 
point un programme de traduction instantané 
d'Anglais en Russe et réciproquement. Afin 
d'impressionner le président, ils effectuèrent 
une démonstration des possibilités de la machine 
en traduisant tout ce qu'il disait en Russe puis 
en Anglais. Le président fut très impressionné 
et très admiratif jusqu'à ce qu'un assistant 
vienne lui rappeler que Mme la Présidente 
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l'attendait. Quand il commenta : "loin des 
yeux, loin du coeur", il fut des plus étonnés 
d'entendre la machine traduire: "maniaque 
invisible"! 


TRAITER LES PHRASES 


Chacun sait que la langue courante est 
construite avec des phrases. Mais qu'est-ce que 
l'on entend exactement par phrase? La façon la 
plus évidente de reconnaître une phrase est 
qu'elle se termine par un point. Cependant, si 
nous voulons traiter les phrases, il faut aller 
beaucoup plus loin. 


La définition généralement acceptée d'une 
phrase est la suivante: “un ensemble de mots, 
de la langue parlée ou écrite, formant 
grammaticalement l'expression complète d'une 
pensée". Elle contient en principe, un sujet et 
un verbe et définit une constatation, pose une 
question, donne un ordre ou fait une demande - 
cette définition précise que la phrase se situe 
entre deux points de ponctuation. Comment 
traduire cela en langage courant et a fortiori 
comment le faire faire à un ordinateur? 


DECOMPOSER LA PHRASE 


Avant de comprendre une phrase, nous devons 
la décomposer en ses divers composants afin de 
pouvoir analyser la signification de chaque 
segment. 


Cette méthode d'analyse grammaticale est 
bien connue des grammairiens. 


Voyons quelques exemples: 
J'AIME 


Un sujet (J'), un verbe (AIME) 
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J'AIME LE CHOCOLAT 

Un complément d'objet (LE CHOCOLAT) 
J'AIME LE CHOCOLAT AMER 

Un qualificatif du mot chocolat (AMER) 
J'AIME BEAUCOUP LE CHOCOLAT 


Un adverbe qui ajoute une qualification au verbe 
(BEAUCOUP) 


Le mot le plus important dans ces 
propositions est le verbe "AIME" qui traduit 
l'idée essentielle. La seconde proposition est 
plus complète car elle précise ce qui est aimé: 
LE CHOCOLAT. L'adjectif donne une information 
supplémentaire sur l'objet désiré mais cela 
devient plus compliqué lorsque l'on ajoute 
l'adverbe BEAUCOUP. 


Voyons maintenant comment un programme 
d'ordinateur peut décoder une telle phrase. La 
réponse est de trouver une structure logique de 
la phrase et les règles que nous pourrions poser 
pour cet exemple. 


1. La phrase commence avec un sujet (J') et fi- 
nit par un point. 


2. Le dernier mot est l'adjectif qualificatif 
(à moins qu'il n'y ait pas de complément d'ob- 
jet, et seulement deux mots). 


3. Si le mot suivant le verbe n'est pas l'objet, 
c'est un adverbe; si le mot avant l'objet n'est 
pas le verbe, c'est un adverbe. 


4. La séquence est: groupe sujet-groupe verbe- 
groupe objet. 


Ecrivons un programme dans lequel nous 
donnons la phrase à l'ordinateur et demandons- 
lui de la séparer en ses composants. Commençons 
par définir un format de l'ECRAN avec trois 
fenêtres. Le canal 0 en bas est réservé à 
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l'entrée de vos données, le reste de l'écran 
est divisé en deux fenêtres horizontalement, # 1 
et #2. La fenêtre #1 (partie inférieure) montre 
le résultat final du programme et la fenêtre #2 
(partie supérieure) affiche les travaux de 
certaines sous-routines. 


40 ÉCRAN 


1000 DEFine FROQGCedure ECRAN 
10010 MODE 4 

LOOZO QLS 

LOODSO WINDOW HO,455, 40,56, 216 
10040 WINDOW 41,455, 100,26, 116 
LOOËGO WINDOW #24 4554 100, y lé 
10060 HORDER #0, 5 4 

10070 EORDER #Hluue 

10080 EHORDER #4,:%, 2 

LO0YO PAPER #40, 0 

10100 FAFER #17 

LO1LO FAFER Hu 4 

10120 LNE #0, 7 

LOLEO INK #1, © 

10140 INK #2 © 

LO1HO CSIZE #Ou lu 0 

10160 CSIZE #l,1,0 

LO170 CSIZE Heu lu 0 

10180 CLS HO: CLEO IL: CLORT 


Nous devons donner une désignation aux 
compléments d'objets, adjectifs et adverbes pour 
travailler, en utilisant la PROCedure INIT qui 
les lit à partir des données d'entrée et les 
stocke dans les tableaux OB$(n,8), AJ$(n,8) et 
AV$(n,8) selon leur caractéristique. 


Notez que la longueur du mot le plus long 
(8) doit être prise en compte lorsque l'on 
dimensionne le tableau et que le nombre de 
chaque type de mot est défini comme une variable 
(0B%, AJ$, AV%) afin qu'il soit possible d'en 
ajouter ultérieurement. 


10 RESTORE 


4Q  INIT 
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11000 DEFine FRQOCedure INIT 


11010  OBX=5: AJ4=5: AV4=2: DIM 
OBS (OB%4, 10), AJ$ (AJ, 10), AVS (AVY, 10) 
11020 DATA "BISCUIT", "CHOCOLATE", "GATEAUX", 
CAFE" ; IUTHE"! ; LL EAU 
11030 DATA "FRAIS", "AMER", "SECS", "FROID", 


MHOUILLANT!", "TIEDE" 
11040 DATA "TOUJOURS", "BEAUCOURF", "SOUVENT" 


11050 FOR NxQ TO OK% 
11060 READ OE# (N) 
11070 END FOR N 
11080 FOR NæQ TO AJY% 
11090 READ AJS& (N) 
11100 END FOR N 
11110 FOR NzQ TO AVX 
11120 READ AV# (N) 
11150 END FOR N 


11140 END DEFine INIT 


Entrons maintenant la phrase à décomposer en 
utilisant la FuNction SAISIS$(1) décrite 
auparavant et une boucle de répétition (REPeat 
CHAINE). N'oubliez pas que vous pouvez utiliser 
la commande MERGE pour charger la routine 
SAISIS$ décrite dans le dernier chapitre. 


La phrase doit être séparée en mots (voir 
diagramme 3.1). Pour rendre les choses plus 
simples, nous ajouterons un espace à la fin de 
CHAINES, de telle sorte que le format du dernier 
mot ressemble à celui des autres, ainsi qu'un 
caractère fictif juste à la fin pour les raisons 
données ci-après. 

Le CHAINES&=CHAINES &e "UK" 

De nouveau, nous utiliserons l'instruction 
INSTR pour rechercher les espaces, puis nous 
séparerons et stockerons chaque mot. Ceci est 
exécuté ici avec la boucle REPeat MOTS et la 
fonction STOCKMOT. La recherche initiale est 
définie par DEB%-=1. 


130 DER: 1 


170 REFeat MOTS 
180 IF STOCEMOT THEN EXIT MOTS 
190 END REPeat MOTS 


Si un espace n'est pas détecté dans la 
chaîne (ESP%=0), la fin de la phrase est 
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atteinte et la fonction STOCKMOT renvoie la 
valeur -1. Si cette fonction renvoie toute 
autre valeur que 0, on sort alors de la boucle 
MOTS (EXIT MOTS). 


12000 DÉFine FUNtion STOCEMOT 
L2020 ESFZe NU INSTR CHAINES 
120.50 IF OESFA4mO THEN KRETUrMN 1 
12090 END DEFine STOCEMOT 


Si un espace est détecté, la partie de 
CHAINES de la position DEB$ (début de la 
recherche) à la position ESP3-1 (espace-1- 
longueur du mot) est supprimée, le compteur de 
mots (CM$) est incrémenté, et le mot stocké dans 
le tableau M$(CM3). 

20 DIM MS (CS, LO) 

et CM] 

1 2040) CM (M | 

12060 MS COM) CHAINES (DERYX TQ ESF A1) 


COUPER 

ET STOCRER 
T 

ST T0 SP-1) 


ALLER Au 
CARACTERE 
SUIVANT 


ST= SP +1 


Organigramme 3.1: Découpage des mots. 


Comprendre la langue naturelle 3 7 


Au début, DEB% est égal à 1, de sorte que la 
recherche démarre au premier caractère de la 
chaîne, et que le compteur de mots (CM$) est mis 
à zéro afin que le premier mot trouvé soit stoc- 
ké dans la case zéro du tableau stockage des 
mots.Le compteur de mots est incrémenté à chaque 
fin de cycle afin que la case suivante du ta- 
bleau M$ soit utilisée lorsqu'un nouveau mot est 
détecté. 


La longueur de la CHAINES est réduite à 
chaque fois qu'un mot est stocké et celui-ci est 
supprimé de la chaîne pour ne laisser que 
CHAINES$S(ESP%+1 TO) et la valeur 0 renvoyée par 
la fonction. Du fait que STOCKMOT est à zéro, 
la boucle CHAINE est répétée. 


L'astérisque à la fin de la chaîne est 
nécessaire étant donné que la nouvelle CHAINES 
est toujours définie comme un caractère de plus 
que le dernier espace, de sorte que la fin de 
CHAINES ne doit pas être un espace. 


12070 CHAINE#E=CHATNES (CESFA+L  T()) 
120890 RETUHr nm 0 

En ajoutant les lignes suivantes, on 
affichera, dans la fenêtre supérieure, 


l'opération de réduction de CHAINES, en cours 
d'exécution de la recherche. 


150 UNDER #2,1:FRINT #2,"CHAINE#"\: UNDER #2 
,0 
12010 PRINT #2,,CHAINES# 


Un contrôle est effectué pour vérifier qu'il 
n'y a pas plus de 6 mots (0 à 5) dans la phrase, 
car cela dépasserait les dimensions des ta- 
bleaux. Si cette condition est vérifiée, CM% est 
remis à -1, STOCKMOT renvoie la valeur -1 et 
l'on sort de la boucle (EXIT MOTS). 


150 UNDER #2,1:PRINT 42,"CHAINES#"\: UNDER 
#2,0 
12010 PRINT #2,, CHAINE 
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Lorsque la recherche est finie (END REPeat 
MOTS), la liste des mots trouvés est affichée 
dans la fenêtre du bas. 


UNDER 41,1 2 FRINT #1, "ME CN) "3 UNDER 
FOR Neû TO CMX 


PRINT, MEGN);" 
END FOR N 


Un test est alors fait pour vérifier s'il 
existe une correspondance entre les mots de la 
phrase M$(N) (voir diagramme 3.2). Seuls les 
mots 2 et 3 sont vérifiés car ce sont les seules 
positions possibles des compléments d'objet 
dans notre phrase type. On se branche sur 2 
PROCédures différentes selon la position du mot 
correspondant dans la phrase. S'il n'y a pas de 
correspondance, un message est alors affiché et 
une nouvelle entrée demandée. 


DEPLACER 


POINTEYR 
OBJET 


Organigramme 3.2: Chercher une 
correspondance. 
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230 FOR N=O TO OR% 

#40 IF ME(2) =OR#(N) THEN FAS D 
_ADV:NEXT CHAINE 

250 IF MECZ)=0RE(N) THEN ADV:N 
EXT CHAINE 

260 END FOR N 

270 FRINT \, "Complément d'objet non tr 
ouvé" 


290 END KEFeat CHAINE 

Si le complément d'objet est détecté comme mot 
3, c'est qu'il n'y a pas d'adverbe (mais peut- 
être un adjectif). 


1000  DEFine FROCedure FAS _D_ADV 
1010 FRINT\ ,'"pas d'adverbe" 
1020 ADJ_VERIF 3 


1030 END DEFine FAS D_ADV 
Si le complément d'objet est détecté comme mot 4 
c'est qu'il y a un adverbe et peut-être un 
adjectif. L'adverbe peut se trouver en première 
ou en deuxième position (voir diagramme 3.3). 


Organigramme 3.3: Adverbe et peut-être 
adjectif. 


2000 DEFine FROCedure ADV 
2010 FOR nzQ TO AVYX 
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Nous vérifions d'abord la position de l'ad- 
verbe. 


2020 IF MF(O)=AV#(n) THEN FRINT,'"adverbe 
en premitre position": ADJ _VERIF 4:RETurn 
2Q70 IF M#(1)=AV#(n) THEN PRINT, '"'adverbe 


en seconde position": ADJ VERIF 4:RETurn 
2040 END FOR n 


Dans ces deux cas nous vérifions systématique- 
ment si après le complément d'objet il y a un 
adjectif (ADJ VERIF). 


Notez que la place de l'adjectif se trouve 
en position 5 (M$(4)); en revanche lorsqu'il n'y 
a pas d'adverbe l'adjectif se trouve en position 
4 (M$(3)). La variable “pos” qui est passée 
lors de l'appel de la PROCedure ADJ VERIF assure 
que c'est bien le bon mot qui est vérifié. 


ET 


3000 DEFine FRKOCedure ADJ VERIF (pos) 


“Oo 10 FOR NeG TO AJ% 

3020 IF M£ipos)=AJE£(N) THEN FRINT "ADJEC 
IF": RETUEN 

NT RTe) END FOR N 

040 IF ME(pos)is"" THEN FRINT "adjectif 
incomprehengsible"s: KETurn 

5050 FRINTYS,'"pas d'adjectif" 


3060 END DEFine 4DJ VERIF 


En dernier lieu, si l'adverbe n'a pas été 
trouvé, nous l'indiquons. 


2050 FRINT\, "ADVEREE INCOMPREHENSIHLE'":RE 
Turn 
2060 END DEFine ADVEREE 
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ADJECTIF 


PRINT 
* ADVERBE 
INCONPRE- 
HENSIBLE ” 


PRINT 
TADJECTIF 

INCONPRE- 
HENSIBLE” 


Organigramme 3.4: Adverbe et Adjectif. 


LA PONCTUATION 


Ainsi que nous l'avons précédemment dit, la 
fin d'une phrase se reconnaît à son point final, 
bien qu'habituellement, lorsque l'on rentre une 
phrase dans la machine, on ne s'en préoccupe 
pas. Mais qu'arrive-t-il si un utilisateur 
pointilleux emploie une ponctuation correcte? 
Si vous réfléchissez à cette question, vous 
réalisez que l'ordinateur va buter sur une 
difficulté car il ne reconnaîtra pas le dernier 
mot, puisque celui-ci sera découpé comme le mot 
plus un point final. 
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Nous avons donc besoin de vérifier si le 
dernier caractère de la chaîne entrée (CHAINES) 
est un point final. Le meilleur moment pour 
vérifier la PONCTUATION semble être juste après 
l'entrée de la phrase. Si le dernier caractère 
(FIN$=-CHAINES(LEN(CHAINES$))) est un point final, 
il suffit simplement de la supprimer et de 
revenir au traitement habituel. 


0 FONCTUATION 
50 DEFine FRÜCedure FONCTUATION 
étl0 FINESCHAINESZ# CLEN (CHAINES) ) 
Ho) IF OFINEæ",U THEN SUFFRIMESKRETurn 
END DEFine FONCTUATION 
Oo DEFine FRÜCedure SUFFKRIME 
Foiû CHAINEZÆ&CHAINEZÆ (1 TO LEN(CCHAINEZÆ) -1) 
7020 END DEFine SUFFRIME 


él 


Ar 


D'autres types de ponctuation peuvent 
terminer une phrase, il faut donc voir de plus 
près le dernier caractère. Les plus connus sont 
les points d'exclamation et d'interrogation qui 
indiquent le contexte de la phrase. 


SIRET) IF FINE="ST THEN SUPPRIME 2: FRINT # 
0, "OUESTION EUX 
40 IF FINE&UUS THEN SUPPRIME : FRINT # 
O, "EXCLAMATIONTS 


Dans de nombreux BASICS, la commande INPUT 
n'accepte rien après la virgule, qui est lue 
comme fin de donnée. Heureusement, il n'en est 
rien avec le superBASIC :les virgules sont 
utiles comme indicateurs des différentes parties 
d'une phrase que l'on veut considérer comme des 
éléments intrinsèques. Cependant, dans les cas 
simples, il faut mieux les enlever et les 
remplacer par des espaces avant que la phrase ne 
soit séparée en mots. Remarquons que cela 
fonctionnera d'une façon tout à fait correcte 
s'il n'y a pas d'espace après la virgule, car 
tout espace suivant une virgule remplacée sera 
considéré comme un nouveau mot. Si aucune 
virgule n'est détectée (VI®%-=-0), on sortira de la 
boucle; dans le cas contraire, la partie gauche 
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de CHAINES (jusqu'à la virgule) et la partie 
droite de CHAINES (au-delà de la virgule) sont 
prises et réunies avec un espace entre elles. 


8000 DEFine PFROCedure VIRGULE 
8010 KEFeat VIREQUOLE 


82 Vs", INSTR CHAINES 
SITE) IF Vl4xO THEN RETurn 
630 40) CHATNEGE&CMATNES CL TO VTT AeL) Ro Mme 


CHAINES# (VI 441 TO) 
AOC) END KEFeat  VIRBROUCLE 
8060 END DEFine VIRGULE 


Organigramme 3.5: Ponctuation. 


Les apostrophes peuvent être traitées de la même 
façon, si ce n'est que nous ne les remplacerons 
pas par un espace mais que nous les supprimerons 
purement et simplement. 


LAC AFOSTIRORHE 
9000 DÉFine FROCedure AFOSTROPHE 
OO REFeat  AFOSHOUCLE 


9020 AA TOCUTNSTR CHAINES 
JQFQ IF APF#x0 THEN KETuUr nm 
9040 CHAINE GEæCHAINES# CL TO AFF l) & 


CHAINES CAFA+L TO) 
908 END KEFeat AFOSHOUCLE 
9080 END DEFine AFOSTKOPHE 
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UNE METHODE DE RECHERCHE ITERATIVE 


Bien que la méthode que nous avons décrite 
précédemment fonctionne correctement, elle a 
l'inconvénient d'exiger d'entrer une phrase d'un 
nombre limité de mots. 


Utiliser une méthode itérative sur la phrase 
entière - pour chaque mot-clé - sans diviser au 
préalable la phrase de n'importe quel format. 
Dans cette méthode, nous prenons le premier mot 
significatif et essayons de le comparer au même 
nombre de lettres que dans CHAINES, en partant 
du premier caractère. Si ce test ne marche pas, 
il est automatiquement répété, cette fois-ci à 
partir du second caractère, et ainsi de suite, 
jusqu'à ce qu'une correspondance soit trouvée ou 
bien que l'on atteigne la fin de la CHAINES. 
Par exemple si CHAINES est "J'AIME LE CAFE" et 
que le premier mot significatif soit CAFE, nous 
aurons: 


J'AI 
"AIM 
AIME 
IME 
ME L 
E LE 
LE C 
E CA 
CAF 
CAFE (correspondance trouvée) 


Nous pouvons utiliser une grande partie de notre 
programme mais de nombreux changements doivent 
être faits. Il faut supprimer les lignes 80 à 
9999 - avec la commande "DLINE 80 TO 9999" et 
modifier l'instruction DIM de la ligne 20, de 
façon à porter la capacité du tableau M$ à 20. 
La fonction STOCKMOT n'est pas utilisée non 
plus, vous pouvez par conséquent la supprimer 
"DLINE 12000 TO 12090". 


10 RESTORE 


20 DIM M#&(19, 10) 
30 ÉCRAN 
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0 INIT 

oi) REPFeat CHAINE 

bÙ MAPS: 

Pan AT HO,l,ls CHAINE#EGAIGISE (1) 
ÉAe CLS#HI 2 CLSHE 


A la place de la fonction STOCKMOT, nous 
utiliserons une procédure à peu près similaire: 
TROUVE(T$) (voir le diagramme 3.6). T$(para- 
mètre de la procédure TROUVE) contient temporai- 
rement le mot qui sera recherché dans CHAINES. 
T$ peut donc être utilisé pour rechercher, grâce 
à la fonction INSTR, une quelconque correspon- 
dance. Si la recherche ne donne pas de résultat, 
la procédure est abandonnée et l'on revient à 
l'endroit où elle a été appelée (RETurn). Pour 
se rendre compte de ce qui a été trouvé, et pour 
pouvoir utiliser ultérieurement les mots détec- 
tés, nous les stockerons immédiatement. Nous ve- 
nons d'augmenter la capacité du tableau M$, il 
n'y a par conséquent pas de problème (même pour 
les phrases les plus longues!). 


1000 DÉFine FRKOCedure TROUVE (T#) 
1010 CHAINE 4e T# INSTR CHAINES 
1020 IF CHAINE #0 THEN RETurn 
1040 CM CM A+ 1 

1 OU MS CCM) = TS 

1080 PRINT Hs n T$ 

1090 END DEFine TKOUVE 


Tous les compléments d'objet peuvent être 
détectés dans CHAINES grâce à une boucle, et il 
en est de même pour les adverbes et les 
adjectifs. 


120 FOR Me TO QE 
130 TROUVE  GEFE (FD 
140 END FOR M 

150 FOR Me TO A4VX 
1Lét TRQUVE AVE (M) 
L70 END FOR M 

180 FOR HeQ TO AJ% 
190 TROUVE AJ (M) 
200 END FOR M 
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Organigramme 3.6: Trouve (T$). 


L'exécution du programme s'arrête alors 
jusqu'à ce que le temps de pause soit atteint 
(500), ou qu'une touche soit enfoncée, avant que 
la fenêtre où figure la phrase entrée soit 
effacée pour permettre l'entrée d'une autre 
phrase. 


a 0) FICTIF&æINKEYS (500) 
260 CLS #0 
270 END REFeat CHAINE 


CORRESPONDANCE PARTIELLE 


L'avantage de la méthode itérative est que 
l'on peut arriver à obtenir une reconnaissance 
d'une série de mots liés en analysant seulement 
quelques caractères clés. Cela est évidemment 
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très utile, car il n'est alors plus nécessaire 
de faire la distinction entre les pluriels et 
les singuliers. Si vous corrigez la ligne 11020 
comme ci-dessous: 


11020 DATA MRISCUIT", "CHOCOLAT", "GATEAU", "CAFE", 
LL THE UL , EAU L 


Les deux mots “GATEAUX" et "GATEAU" seront 
reconnus. 


Cependant les choses ne sont pas aussi 
simples, car utiliser THE plutôt que THES peut 
conduire à des résultats inattendus. On pourra 
détecter THE et THES, mais aussi THEIERE, 
THEATRE, THEISME, THEME de la même façon. 


Ce problème n'est pas limité aux seuls 
préfixes, la machine ne fera pas non plus de 
différence entre AMER et RAMER. Vous pourriez 
intégrer une routine qui vérifierait que le 
caractère précédent le mot à détecter est bien 
un espace, ce qui éviterait ce genre de problème 
(voir diagramme 3.7). CHAINES donne la posi- 
tion du début du mot, de sorte que 
CHAINES (CHAINES-1) donne le caractère précédent 
qui provoque le retour à la procédure d'appel si 
le caractère est bien un espace. 


1050 IF CHAINES (CHAINE#-1)25" " THEN RETu 
rn 


Organigramme 3.7: Vérification du début 
d'un mot. 


Pour que cette routine fonctionne 
correctement sur le premier mot de la chaîne, il 
faut insérer un espace au début de CHAINES. 


90 CHAINE GE" OUR CHAINES 


De la même façon, vous pourriez concevoir 
une routine similaire pour vérifier le caractère 
qui suit le mot détecté, ou bien la longueur de 
celui-ci, afin de restreindre les erreurs 
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possibles. 


METTRE LES CHOSES EN ORDRE 


Bien que nous ayons détecté tous les mots de 
la phrase, sans prêter attention, ni à leur 
position, ni à leur nature, ils sont placés dans 
l'ordre dans lequel ils apparaissent dans la 
ligne DATA. Cela parce que la comparaison 
commence par le premier mot de la phrase. Il 
serait utile de pouvoir réaménager le tableau 
dans lequel ils apparaissent dans la phrase. 


Pour cela, nous devons garder la trace de la 
position du mot dans la phrase, CHAINES et le 
compteur de mots (CM$), car chaque mot est 
comparé à un nouveau tableau (PM#) (Position des 
Mots). C'est un tableau à deux dimensions où la 
position dans la phrase est contenue dans le 
premier élément, PMS(CM%,0), et le compteur de 
mots, PMS(CM$%,1) dans le second. Pour rendre 
l'affichage plus clair, les termes ‘“mot" et 
"position" (c'est-à-dire la position de départ 
du mot détecté dans la phrase) ont été rajoutés. 


20 DIM MB(19,10) s DIM FMC19, 1) 


110 FRINT 4 "mot!", "position" 
1060 FM CCM y Q) CHAINES 2 PMCCMA, 1) &eCMX 
1070 PRINT 42, 4 PMCCMAu 1) 8 FM CCM 4 0) 


La routine qui effectue vraiment l'ordonnance- 
ment (PROCedure ORDRE) n'est appelée que si une 
correspondance est trouvée. 


10 ORDRE 


La boucle de TRI agit sur un simple échange 
(voir organigramme 3.8). Elle extrait la posi- 
tion du premier mot trouvé dans la phrase (IS%) 
(premier élément dans la première dimension, 
PM(0,0)) et la compare avec la position du 
second mot détecté (deuxième élément dans la 
première dimension PM(0+1,0)). Si la première 
position est plus grande que la seconde cela 
signifie que le premier mot détecté dans la 
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phrase est plus loin que le second et que, par 
conséquent, il doit être interverti grâce à la 
variable D%. Cela aura pour effet de remettre 
les pointeurs de position en ordre, mais il ne 
faut pas oublier que le compteur de mots doit 
aussi être réordonné. Cette méthode est répétée 
jusqu'à ce que tous les détecteurs de mots 
soient dans un ordre correct. Notez que le 
véritable contenu du tableau qui contient les 
mots n'est pas modifié; seuls les pointeurs 
"index" le sont. 


NON 


PERMUTER PERMUTER 
LES LE POIN- 
POINTEURS TEUR CM 


Organigramme 3.8: Mettre les mots dans 
l'ordre. 


1Q0 FPRCINT He, , "stock", position’ 
2000 DÉFine FROCedure ORDRE 

a Q À REFeat  TKI 

OO FOR neQ TO CM 


QAR C) LE FM One) PM (PM Cnal, 0) THEN 

2040 D'AmPM Cm 0) 8 FM On, 0) EM (nt 1, 0) 
5 FMGOme+l, 0) D% 

FAR ete) D'AmFM Cm, 19 8 FM Cm, 1) eFM Cm, 1) 


s FMemel, L)æD% 


2060 END REFeat TRI 
7 0 END IF 
2080 END FOK n 
2090 END DEFine QKRDKE 


Si les chaînes sont maintenant imprimées dans 
l'ordre revu du compteur de mots, CM%, elles 
apparaîtront comme elles étaient dans la phrase 
d'origine, ce qui facilite la compréhension. 


FOR neo TO CHA 
FRINT , n+l,FM in, 0), ME CPM Cr, 12) 
END FOR n 


So 


Si vous exécutez ce programme avec plusieurs 
phrases différentes, vous pourrez visualiser la 
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su) |, 


1 
h 


Su eh 


AMER % 


— _# 

La 

J # 

SZ ui #% 
l GS € 
ÿ S TE 
É I pre 
| 5 € 
1 T 
ñ ul 
| a 


CHOCULAT 


pas d'adverhe 


CHOCULAT 
adjectif 


CHOCOLAT 
ANMER 


J'AIÎIME 
AMER X 


LE. 
J'AIME 
LE 


ME CADRES CRE du 


Me BA PNB EE Si 
LE 


Figure 1: Tri. 
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position originale des mots dans la fenêtre 

supérieure, et les mots réordonnés comme dans la 
A 

phrase dans la fenêtre du bas. 
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4 


La construction 
des réponses 


DES REPONSES SENSEES 


Jusqu'ici nous avons vu comment décoder une 
phrase introduite en machine, mais les réponses 
obtenues étaient très formelles et très limi- 
tées. Bien que les mêmes mots soient souvent 
utilisés dans les questions et les réponses, 
dans la conversation normale nous analysons 
le sujet de la phrase et le modifions en fonc- 
tion du contexte de la réponse. 


Par exemple: 
J'AIME LES CHOCOLATS 
pourrait entraîner le commentaire suivant: 
IL AIME LES CHOCOLATS 
et, de la même façon: 
IL AIME LES CHOCOLATS 
devrait donner: 
J'AIME LES CHOCOLATS 
On constate dans ces exemples, que pour 
chaque entrée d'un sujet, on trouve un sujet 
équivalent dans le commentaire, et qu'il suffit 


d'inverser les sujets et d'ajouter le reste de 
la phrase pour obtenir le résultat souhaité. 
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"J'" contient deux signes, ainsi nous 
pouvons vérifier CHAINES (1 TO 2), et le 
remplacer par "IL" et ajouter le reste de la 
phrase CHAINES$(3 TO). 


1ü ECRAN 


En KEFeat ROUCLE 

Te) AT#HO, 1,1: CHAINE#EGSATSIGE (1) 

40) CHAINESÆ&CHATNESZ & "oo" 

[Ta IF CHAINE# (1 TO )æ"J'" THEN FRINT " 
IL " & CHAINES CE TO ) 

An FICTIFEÆSINEEYS (500) 

100 (MIRE TR 


110 END RKEFeat  ROUCLE 


(Notez que le format de l'ECRAN et la routine 
SAISIS$(1) sont exactement les mêmes que dans 
les programmes précédents.) 


De la même façon, les deux premiers carac- 
tères pourraient être remplacés par "J'" au cas 
où "IL" serait introduit. 


630 LFOCHAINE# CL TO )æ "IL" THEN FRINT "J 
NOR CHAINES CE TO ) 

Vous constaterez que cela fonctionne parfaite- 
ment jusqu'à ce que vous tapiez quelque chose 
comme : 


ILS AIMENT LES CHOCOLATS 
qui donnera: 
J'SAIMENT LES CHOCOLATS 


Qui ne donne pas vraiment un résultat satisfai- 
sant! 


Nous pourrions traiter ce problème en 
vérifiant globalement "J'AI" et "IL A", comme on 
contrôle "J'" et "IL", mais pour cela il faut 
modifier les lignes 60 et 80, pour éviter les 
interférences. 
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60 LFOCHAINESZ CL TO 4)æ"J "AT" THEN PRINT " 
IL A! & CHAINE#(S TO ) 


80 IF CHAINE#(1 TO 4)æ"IL A" THEN FRINT °J 
Al" & CHAINE#(S TO) 


UNE AUTRE DIMENSION 


Bien que cette méthode fonctionne, 
rapidement on va se trouver confronté à des 
problèmes de place considérable, car il faut une 
ligne pour chaque hypothèse étant donné que nous 
devons prendre en compte la longueur du mot ou 
de la phrase correspondante. Lorsque plusieurs 
mots doivent être contrôlés, il est préférable 
d'utiliser un tableau à plusieurs dimensions 
i$(N,M) qui - au sein d'une boucle - va pouvoir 
servir d'élément de référence avec la phrase 
entrée. 


La solution la plus simple consiste à ranger 
les éléments à comparer avec la phrase entrée 
dans la première dimension, i$(N,0), du tableau 
et ceux de la réponse dans la seconde i$(N,1). 
Il est plus facile d'éviter les erreurs en 
entrant les données, grâce à l'instruction DATA, 
qui seront lues dans l'ordre au sein de la 
PROCedure INIT. 


Soit la PROCedure: 


#Q  INIT 

LLO0OQ DÉFine FKOCedure  INTT 

11Q10 5 TORE 

LLOSO DIM ï%Cl, 1,4 

11100 DATA OMT'AIM,MIL AMSQUIL AM, MJ'AI" 
LLEO0 FC mao TO 1 

11210 READ 1% 0m,0) 4 READ 1% (mn, 1) 
Leo END FOR mn 


11390 END DEFine INIT 


Une nouvelle fois, nous utiliserons une 
boucle de recherche itérative, qui pour le 
moment imprimera simplement le mot ou la phrase 
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correspondant à ceux reconnus i$(N,1) (voir 
organigramme 4.1). Un des avantages de cette 
méthode, est qu'elle permet de reconnaître 
n'importe quelle correspondance de mots, qu'ils 
soient entourés d'espaces ou non; en effet, 
nous ne séparons pas la phrase en mots comme 
nous l'avons fait dans les précédents chapitres. 
(Notez une fois encore, que les procédures ECRAN 
et SAISIS$(1) sont les mêmes qu'auparavant.) 


PAINT 
"MOT LE LA 
2ene 
DIMENSI ON * 


Organigramme 4.1: Une réponse correspondant. 


10 ECRAN 

FO  REFeat CHAINE 

40 ATHO, 1,4 2 CHAINES##GAISTISE (1) 

3) CHAINEÆ&CHAINEZ & M" 

60 FOR MæQ TQ 1 

70 LS'æiE(M,0) INSTR CHAINE 

60 IF IS4+0 THEN EXIT M 

EAN END FOF M 

1 O0 FARINTHES, 146 (M,1) , CHAINES Ç(ISY4+LEN Ci # (M, 
O)) TQ ) 

110 FRINT iÆ(M,1) & CHAINES CIS A+LEN (Ci (M, 0 
)) TC ) 


1420 FICTIFEÆE&INÉEYSE (00) 
140 CL. SH Q 
140. END REFeat CHAINE 


La réponse désirée se trouve dans la seconde 
dimension du tableau i$(M,1), de sorte que nous 
donnons l'ordre de l'afficher lorsque l'on 
quitte la boucle. 


1QO0 FARINTHEZ, 1% 4(M,1) 
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Pour obtenir une réponse plus complète, il 
est nécessaire de rajouter le reste de la phrase 
originale (voir organigramme 4.2). EL «n°7 
aucune difficulté à définir "le reste de la 
phrase" étant donné qu'il suffit de soustraire 
le mot détecté du début de la phrase. ISS 
marque le début de la correspondance, et nous 
pouvons très facilement déterminer la longueur 
du mot trouvé étant donné qu'il se trouve dans 
la première dimension du tableau i$(M,0). Par 
conséquent, il faut rajouter CHAINES$S(ISS+LEN(i$ 
(M,0))) à la réponse. Pour faire apparaître 
clairement ce qui se produit, chaque partie de 
la réponse vient s'afficher dans la fenêtre du 
haut. 


100 FRINTHS, LE CM, 1) , CHAINES CISA+LEN Ci (M, 
Q)) TO ) 

LLC PRINT CM, 1) & CHAINES CISYX4LEN Ci # (M, 0 
)) TO ) 


SAISIR 
ENTREE 


RETIRER 
PREMIER 


Organigramme 4.2: Une réponse plus 
complète. 
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Maintenant si vous essayez: 
J'AI ENVIE DE MANGER 
L'ordinateur confirme: 


IL À ENVIE DE MANGER 
DES REPONSES PLUS ELABOREES 


Nous avons donc résolu le problème de la 
reconnaissance des groupes sujets pour pouvoir 
les exploiter dans un traitement simple d'une 
phrase. Rappelez-vous que vous pouvez rajouter 
autant de sujets que vous le désirez, à 
condition d'augmenter la dimension du tableau 
i$(M,N) ainsi que la variable MC% (qui contient 
le nombre de mots dans les lignes DATA), Bien 
que cette solution présente un avantage non 


négligeable par rapport aux solutions 
précédentes, il n'en reste pas moins qu'il faut 
introduire tous les verbes à toutes les 


personnes si nous voulons un traitement plus 
complet des phrases. 


Dans la langue française la plupart des 
verbes se conjuguent à partir d'une racine 
suivie d'une terminaison qui est toujours la 
même selon la personne et le groupe auquel 
appartient le verbe. Ainsi la solution la plus 
intéressante, si l'on veut aller plus loin, est 


de continuer à stocker les sujets comme 
auparavant (c'est-à-dire dans un tableau à deux 
dimensions SS$(N,0) et S$(N,1), l'une contenant 


les mots à reconnaître et l'autre les sujets 
pour la réponse), puis de stocker dans un autre 
tableau V$(N) les racines des verbes qui sont 
communes à toutes les personnes (nous avons 
sélectionné ici quelques verbes du premier 
groupe). Enfin dans deux autres tableaux 
RE$(N), nous stockons des phrases préparées, 
destinées à répondre aux phrases qui sont 
entrées, puis dans le tableau TE$(N) les 
terminaisons correspondant à chaque personne. 
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Nous avons donc la PROCédure d'initialisa- 
tion suivante: 


DIM SH(SU/,1,7) 2: DIM V#(VEZ,7) : DIM 
50): DIM TES(SUX, 1,5) 


Les premières lignes de DATA contiennent les 
sujets - à la fois pour la reconnaissance et 
pour la réponse - ainsi qu'ils sont disposés 


ci-dessous: 


S$(n,0) S$(n,1) 
JE TU 

TU JE 

IL ELLE 
ELLE IL 
NOUS VOUS 
VOUS NOUS 
ILS ELLES 
ELLES ILS 


Bien évidemment l'ordre de ces sujets peut 
A . , 2 ! . : ! 
être modifié selon l'orientation que l'on 
souhaite donner aux reponses. 


11040 DATA MJE M,"TU M,OTU M,MMJE M,MIL M,MEL. 

LE" 

11080 DATA PELLEM,UILO, NOUS ", "VOUS ", "VOUS 
M,'NOUS . 

11060 DATA "ILS M,'ELLES ", "ELLES" ,"ILS" 


11140 FOR næQ TO SU% 
11150 READ SÆ(m,0):READ SÆ Cm, 1) 
11160 END FOR n 


Les lignes DATA suivantes contiennent les 
racines des verbes; comme nous l'avons précédem- 
ment dit seuls quelques verbes du premier groupe 


60 Intelligence artificielle sur Sinclair QL 


ont été sélectionnés, nous avons volontairement 
écarté les verbes irréguliers beaucoup plus 
difficiles à traiter. 

LLLOD DATA "DETEST!", "OONSTAT", "RAFFQL", MREVP 
,"SOUHAIT", "CHANT", "JQU" 


‘ 


LAL7O FCIE mat TO VEX 
11180 READ VE (Cm) 
LILYO END FU nm 


Les lignes suivantes contiennent les 
réponses toutes faites selon les verbes qui 
seront employés dans la phrase entrée. Ces 
phrases peuvent bien sûr être modifiées à 


volonté si l'on désire changer le sens des 
réponses. Notez qu'à chaque fois c'est le verbe 
qui apparaît dans la phrase entrée qui est 
réutilisé dans la réponse. 


LLLIO DATA " CA FRORAERLEMENT AUTANT," DES F 
RÔOGRES  FULGURANTS" 

DATA " D'UN TAS DE CHOSES", D'UN JOUR 
LEUR" 

LILEO DATA , MAIS RIEN NE DIT QUE CA SE KE 
ALISERA"," PARFAITEMENT JUSTE", REAUCOUF MIE 
UX GQU'ON NE POURRAIT LE CROIRE" 


11200 FOR neo TO KRFX 
LA LC RE AD RE Cm) 
11220 END FOR n 

Enfin la dernière ligne DATA contient toutes 
les terminaisons à chaque personne. Le tableau 
des terminaisons fonctionne de la même façon que 
celui des sujets; c'est-à-dire qu'il contient 
aussi deux dimensions - une pour les entrées et 
une pour les réponses -, ce tableau est donc 
dimensionné exactement de manière identique. 


El 136 DATA MES MES PES NES MEN MEN ALES MEN AMEN 
a ONS" , NE Z LL ; NE Z LL y HONS" ÿ ENT" ; MENT" , DENT" u DENT 


11250 FOR næQ TO SU%X 
11240 READ TE#(n,0) : READ TE#(m,1) 
11250 END FOR n 
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CORRESPONDANCE 


Une fois l'initialisation effectuée, le 
traitement de la phrase entrée s'opère en 
plusieurs étapes: 


Recherche du sujet: Cette recherche est 
réalisée comme auparavant, dans le tableau 
S$(N,0). Si aucun sujet n'est repéré, la fenêtre 
KO ne s'efface pas immédiatement. 


A0 RE Fe a € nes 
40 ATHO, 1, Les CHATNE#HE&GATSTSE (1) 
Ta) DA NEC SOON 


É 7 


Pan FICTIFS= INÉEYE (500) 
100 CL. EH O 
110 END KEFe@eat CHAINE 


1000 DEFine FROCedure SUJ_VERIF 
D FOR Ms 


a C4 CINSTR CHAINES 
IF ISO THEN 

GMA M 

1060 RE Turn 

1070 END IF 

1090 END FOR M 

LLOOQ NEXT CHAINE 

LLIO END DEFine SUJ VEKIF 


Recherche du verbe: De la même façon que 
pour le sujet; si un verbe est détecté le 
pointeur VM% est initialisé à la position où a 
été détectée la correspondance avec le verbe. 

70 VEREL VERTE 


2000 DEFine FROCedure VERB VERIF 
2010 FOR MxO TO VEZ 
2020 IS4=VE (M) INSTR CHAINE 
203 IF ISX:0 THEN 
1040 VMY= M 
2060 RETUrn 
2070 END IF 
2080 END FOR M 
2090 NEXT CHAINE 
2100 END DEFine VERE VERIF 
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INITIALISER 
POINTEUR 
SUJET 


INITIALISER 
POINTEUR 
VERBE 


SAISIR 
VERBE 
+ REPONSE 


AJOUTE R 
VERBE 


— REPONSE 


AFFICHER 
REPONSE 


Organigramme 4.3: 


REPONSES 


Initialisation des 


pointeurs. 


Enfin, une fois que le sujet et le verbe ont 


été identifiés, nous pouvons fournir la 


appropriée grâce au pointeur VMS. 


réponse 
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30) REFONSE 
000 DEFine FROCedure REFONSE 
4010 RLHÆ&VE (VMA) 

Le plus simple est de fournir la réponse 
avec le même sujet que celui qui a été introduit 
dans la phrase de départ. 

HO 60 Le (SM, O0) 8 RLE & TE CSM, O0) & RE 


10 FFCINT FL 
4190 END DEFine REFONSE 


Si vous tapez par exemple: 
JE CHANTE BIEN 

L'ordinateur répondra: 

JE CHANTE PARFAITEMENT JUSTE 
ou encore: 

JE DETESTE LES ORDINATEURS 
donne: 


JE DETESTE CA PROBABLEMENT AUTANT 
D'AUTRES SUJETS 


Si vous préférez que la machine vous 
approuve plutôt que d'essayer de vous ‘battre à 
votre propre jeu, il suffit de sélectionner la 
deuxième dimension du tableau S$(N,1), celle qui 
contient les sujets opposés. 


3060 Res (GMA, 1) & RLE & TEÆCSMX, 1) & RE 
CVMY) 


Maintenant: 


JE CHANTE BIEN 
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produit la réponse: 
TU CHANTES PARFAITEMENT JUSTE 


Ce qui est indubitablement plus agréable à 
lire! Pour plus de suspense, vous pouvez faire 
tirer un sujet à la machine "au hasard". 


TR R Pr SUJ=RND (1) 
3060 KLESGE(SMX,SUJ) & RLE & TES(SMY,SUJ) & 
REÆ (VMYZ) 


CHOISIR UN SUJET SELON LE CONTEXTE 


11 est en fait bien plus logique que le 
sujet soit choisi en fonction du sens de la 
phrase. Pour ce faire nous devons inclure des 
“"markers" dans les réponses, qui indiqueront 
quelle dimension du tableau est à utiliser. 
Nous utiliserons le signe "“/" pour indiquer à la 
machine que c'est le sujet de la seconde 
dimension qui doit être utilisé et le signe "x" 
pour indiquer que c'est dans l'autre dimension 
qu'il faut aller puiser le sujet de la réponse. 


LLALO DATA "/ CA FKORARLEMENT AUTANT, 0x DES 
FROGRES FULGURANTS!" 

11120 DATA "/ D'UN TAS DE CHOSES" ,1"# D'UN JO 
UR MEILLEUR" 

LLIZO DATA "/ , MAIS KIEN NE DIT QUE CA SE K 
ÉALISERA","+x FARFAITEMENT JUSTE","/ REAUCOUF 
MIEUX QU'ON NE FOURRAIT LE CKROTRE" 


Bien entendu ni l'un ni l'autre de ces 
signes ne doit apparaître dans la réponse; il 
faut donc, lors de l'opération de collage du 
groupe sujet à la réponse, prendre cette 
dernière à partir du deuxième caractère 
(RE$S(I$%+1 TO)). 


Si aucun "/" n'est détecté, la recherche se 
continue avec les "*",} et le sujet est choisi en 
fonction de ces éléments. 


Dialogue 


PRENDRE 
SUJET DANS LA 


1° DIMENSION 


PRENDRE 
SUJET ANS 


DIMENSION 


Organigramme 4.4: Ajuster le sujet au 
contexte. 


#000 DÉFine FROQCedure REFONSE 

. FL VE (VMS ) 

FFCINTEHS , RE CVMA) 

LS O/UUTINSTE RES (VMA) 
LF os Q THEN 


AG ECOMA, SUN) & KL & TEZÆ(CSMA,S 
UM) & RES CVMX) CIS Z+L TO) 
NTRIS TS END IF 
LG ae TINSTA RE (VMS) 
IF IS450 THEN 
SU 20 
RLHeGE CSME, SUN) & RL & TE#Æ(SML,S 
n 3) % REX CVMA) CISZ+L  T() 
7 END IE 


0 FARINT KL 
+190 END DÉFine REFONSE 


Maintenant: 

JE CHANTE BIEN 

donne: 

JE CHANTE PARFAITEMENT JUSTE 
mais: 

JE JOUE MAL 

renvoie: 


TU JOUES BEAUCOUP MIEUX QU'ON NE POURRAIT LE 
CROIRE 
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INSERER LE SUJET DANS LA PHRASE 


Pour rendre les choses plus simples nous 
avons jusqu'ici fait commencer les phrases par 
le sujet, mais dans la conversation courante ça 
n'est pas toujours le cas. Etant donné que nous 
disposons de ‘markers'"' pour indiquer quel sujet 
doit être employé, nous pouvons aussi nous en 
servir pour insérer les sujets dans la phrase. 
En premier lieu, il s'agit de modifier les 
lignes DATA pour pouvoir indiquer à quel endroit 
les sujets doivent être insérés. 


LLIIOD DATA MEET ALOKS, 4 
NTP,UIL EST UN FAIT QUE 
NTG" 

LILeo DATA PKIEN D'ETONNANT, / D'UN TAS DE C 
MAUEN EFFET # D'UN JOUR MEILLEUR" 

DATA "TOUT CE QUE / NE SE RÉALISÉE FAS 
ECESGSAIREMENT", CON GE DEMANDE ST # FARFAITEMN 
ENT JUSTE, UREFLEXION FAITE / REAUCOUF MIEUX 
QUON ONE FOURRAIT LE CROIRE" 


MENT. AUTÉ 
5 FULGURA 


IS$ fournit la position où "*" ou "/" ont 
été trouvés. Tout ce qu'il faut faire est de 
prendre la partie de la réponse avant ces deux 
signes (RES$(VM®&)(1 TO IS%-1)) puis insérer le 
sujet S$(SM,SUJ), la racine du verbe RL$, et 
enfin la terminaison TE$(SM%,SUJ) et le reste de 
la réponse RE$(VM%)(IS%+1 TO). 


our | FIXER LE PRENDRE AJOUTER AJOUTER 
POINTEUR d E 2£ SUJET DROITE DE 
A REPONSE DIMENSI9N A RÉPONSE 
NON 
INITIA 
DEBUT 
RECHERCHE 


+ 


LE TRONQUER AJOUTER AJOUTER 
AU Aie FIN DE SUJET DROITE DE 
UuR REPONSE H°DIMENSION REPONS € 


NON 


Organigramme 4.5: Insertion dans une 
phrase. 
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3060 KLHERES CVMYX) C1 TO ISX-1) & SECSMX 
OUT) $& RLE & TEF(SMZ,SUJ) & RE#CVMYX) CISZ4+I T 
()) 


ALLO RLHERES# (VMY) C1 TO ISX-1) & SECSMX 
SOUJ) & RL & OTESHCSMX, SU) & RE CVMY) CIS A4+I OT 
(3) 


Maintenant: 

JE CHANTE BIEN 

donne: 

ON SE DEMANDE VRAIMENT SI TU CHANTES 
PARFAITEMENT JUSTE 

et: 

JE DETESTE LES ORDINATEURS 

produit: 

ET ALORS, TU DETESTES BEAUCOUP DE CHOSES 


NON 
INITIALI- 
SER SM 


Organigramme 4.6: Initialisation des 
Pointeurs. 
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CHANGEMENT DE TEMPS 


Un des avantages de la méthode des racines, 
est qu'elle permet de modifier très simplement 
le programme pour qu'il réponde au passé, au 
futur etc. En effet, il suffit de changer les 
terminaisons et le tour est joué. 


11155 DATA "AIS'","AIS", "AIS", "AIS", "AIT", "AI 
T',MAIT', "AIT", "IONS',"IEZ","IEZ", "IONS'","AIE 
NT',"AIENT" ,"AIENT®", "AIENT" 
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5 


Les systèmes 
experts 


Un expert est un homme qui a beaucoup de 
connaissances dans un domaine particulier, et 
qui peut donner un avis judicieux sur ce sujet. 


Une telle capacité ne s'acquiert qu'après 
une longue formation et une grande expérience, 
aussi les vrais experts sont-ils rares. De plus 
ils ne sont pas souvent disponibles lorsqu'un 
problème doit être résolu. 


Des scientifiques se sont posés le problème 
de créer des programmes qui simulent le 
comportement de ces experts humains. Ces 
programmes ont l'avantage de pouvoir être 
dupliqués très facilement et de produire un 
grand nombre d'experts qui n'ont besoin ni de 
pause-café, ni de sommeil, ni d'augmentation de 
salaire... Dans ce cas l'ordinateur doit être 
rigoureusement logique, et ne peut bien sûr que 
suivre les instructions écrites par le 
programmeur. 


11 est intéressant de noter que les auteurs 
de science-fiction ont envisagé le cas où ces 
derniers experts se trouvent devant un choix en 
contradiction avec au moins une de leurs 
directives, ce qui n'aboutirait pas à un 
"plantage" du système, mais le conduirait à une 
"pseudo-dépression nerveuse". (Hal; “A 2001 =: 
Space Odyssey", ou Isaac Asimov, “Positronic 
robots"). 


Avant de commencer à écrire des programmes 
pour systèmes experts, nous devons nous demander 
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comment travaille un expert humain. 


Considérons le cas le plus simple où 
l'expert doit répondre à un problème connu. 


- 11 commence par prendre connaissance des 
données du problème. 


- Ensuite il les compare avec celles qu'il a 
emmagasinées dans son cerveau, et cherche une 
égalite. 


- Enfin il rend compte du résultat. 


Dans ce cas nous avons seulement besoin d'un 
petit programme avec des données, qui essaie de 
trouver l'égalité entre l'information saisie et 
celle qui est mémorisée. 


Un système convivial utilisera le langage 
naturel (voir plus loin), mais pour ne pas 
compliquer les choses nous utiliserons ici une 
saisie formatée. Pour commencer examinons le 
problème de la reconnaissance des animaux par 
leur cri. (Organigramme 5.1). 


Organigramme 5.1: Les cris d'animaux. 


Nous utiliserons la PROCédure START pour 
définir deux tableaux: QU$(n), tableau des ques- 
tions qui contient les cris d'animaux connus, et 
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RE$(n), tableau des noms d'animaux correspon- 
dants. 


10 ECKRAN 
#0 START 


10000 DEFine FROCedure START 

LOO IQ MODE 4 

Û CLS #0 # CLS HI 5 CLS #2 
END DEFine ECKRAN 


11000 DEFine FRÜCedure START 

11010 RESTORE 

ë DIM QUE (4,8), REFC4,E), IN(E) 

110270 DATA "MIAQOU", "CHAT", CWOUBH", CHIEN", " 
MEUH", PVACHE", CHOU, CHOUETTE", "HI-HAN","ANE" 
11040 FOR Ne TO 4 

11050 REBD QU EN) 5 REGD RE CN) 

11 END FÜR N 

11070 END DEFine START 


Maintenant il suffit de demander un cri 
d'animal par la fonction SAISIS $ (1), et de le com- 
parer avec le contenu de QU$(N). Si l'égalité 
est trouvée, la PROCédure REPONSE est appelée: 


QUES TT CN 
“Fi AfGuel est l'animal qui fait 2 0": 
pet) INFEGAISIGE (1) 


60 FOR Ne TO 4 

Fi IF INS=QUS (CN) THEN REFONSE 
0 END FCR N 

90 FRINT "désolé, je ne Sais pas" 


100 END REFeat QUESTION 


12000 DEFine FKOCedure REFONSE 

12010 PRINT "L'animal qui fait "3 QUS(N) 3" est 
un(e) ",RES (N) 

12020 END QUESTION 

12040 END DEFine REFONSE 


Au point où nous en sommes nous pourrions 
dire que notre ordinateur remplit mieux cette 
tâche qu'un expert, car il ne peut porter de ju- 
gements subjectifs, ni se lasser ou bien oublier 
de comparer une donnée de sa mémoire. Par ail- 
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leurs sa façon d'écrire n'est pas des meilleures 
lorsqu'il écrit un(e)". (On laissera le lecteur 
y remédier au moyen d'une routine qui testera le 
genre.) 


DES BRANCHEMENTS POUR SORTIR 


L'exemple ci-dessus est très simple, car il 
n'y a qu'une question, et une seule réponse 
possibles. Dans la réalité nous avons à faire à 
des problèmes beaucoup plus complexes, où la 
réponse ne peut être obtenue qu'après toute une 
série de questions. 


Que ferait un expert par exemple dans le cas 
où, ayant mis le contact, sa voiture ne veut pas 
demarrer?. 


11 peut y avoir différentes raisons: 


BATTERIE A PLAT 

FAUX CONTACTS 
CONTACTEUR DEFECTUEUX 
DEMARREUR BLOQUE 
DEMARREUR MORT 

BOBINE HORS D'USAGE 


Pour trouver la cause il suivra une démarche 
logique, et fera un certain nombre de contrôles. 
Tout d'abord vérifier que seul le démarreur est 
en panne. 


LE VOYANT DU CONTACT EST-IL ALLUME (O/N) ? 

Si la réponse est MN", il n'y a pas de 
courant, et la cause doit être une des trois 
premières de la liste ci-dessus. Nous pouvons 
avancer en regardant si les lumières fonction- 
nent. 


LES LUMIERES FONCTIONNENT-ELLES (O/N) ? 
Si la réponse est "O", la batterie n'est pas 


à plat, et il n'y a pas de faux contact, donc 
l'antivol est probablement en panne, et on peut 
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proposer de le remplacer. 
REMPLACEMENT DU CONTACTEUR 


Si les lumières ne fonctionnent pas, il 
faudra vérifier s'il n'y a pas un faux contact. 


LES CONTACTS DE LA BATTERIE SONT-ILS BONS (O/N)? 


Si la réponse est "Oo", il faudra la 
recharger, ou pousser la voiture. 


CHARGER LA BATTERIE OÙ POUSSER 


De la même façon, on pourra faire une série 
de contrôles dans le cas où il y a du courant et 
que le démarreur ne veut pas fonctionner (les 
trois dernières possibilités). 


La façon la plus simple pour programmer 
cette suite d'alternatives est d'utiliser une 
suite de tests "IF ... THEN", qui appellent les 
PROCedures appropriées à chaque réponse. (Orga- 
nigramme 5.2). 


ÉCRAN 


CLOS HS 


edure START 
DIAGNOSTIC DE FANNE" 
CONTACT 


CONTACT 
*F VOYANT DU CONTACT EGST-IL À 
CCSN 5 


1F 
LUMIERES 


END DEFine CONTACT 


DEFine FRÜCeE 
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Organigramme 5.2: Dépannage. 


PRINT REMPLACER LE CUNTAL PEUR" 
START 
END DEFine 
DEFine FKROL 


HA TTERTE 
NECTIONS AVEC Lé HATTER 


61) 
THEN CHARGE 

LES CONNECTIONS " 
END DEFine HATTERIE 
DEFine FROCedure CHARGE 
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15010  FRINT\"CHARGER LA BATIERIE OÙ FOUSSER 
A VOITUR 

15020 START 

15030 END DEFine CHARGE 

16000 DEFine FRüCedure FIN 

16010  STOP 


Léust END DEFine FIN 


Ce genre de programme est relativement 
facile à écrire, mais au fur et à mesure qu'il 
s'allonge et se complique, il devient inutilisa- 
ble. 


VERS UNE SOLUTION 


Une solution plus efficace consiste à 
organiser le texte en tableau avec des pointeurs 
vers la question ou la réponse suivante, selon 
la réponse faite à la question posée. (Organi- 
gramme 5.3.) 


Dans chaque cas le format d'entrée des don- 
nées est le suivant: 


(TEXTE), (pointeur "O"), (pointeur "N"). 
La première question est: 
LE VOYANT DU CONTACT EST-IL ALLUME (O/N) ? 


Si la réponse est "N'", il faut poser la seconde 
question: 


LES LUMIERES FONCTIONNENT-ELLES (O/N) ? 


Dans le cas contraire, il faut continuer par 
l'autre branche de l'organigramme. (Cas 7, non 
développé. ) Nous avons besoin de trois 
tableaux, TX$(N) qui contiennent le texte en 
sortie, O(N) pointeur "OUI", N(N) pointeur 
NON". Pour pouvoir modifier facilement le 
programme, nous utiliserons la variable NPS, 
nombre de groupes de données. Celles-ci sont 
chargées par groupe de trois dans le poste 
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correspondant de chacun des tableaux. Les 
pointeurs vers une sortie du programme sont 
initialisés à oO. (Remarquer que seule la 
PROCedure ECRAN est la même que dans le 
programme précédent, tout le reste du programme 
est nouveau). 


Organigramme 5.3: Pointeur vers la réponse. 


10 ECRAN 


en 61 


FRÜCedure START 

OÜRE 

Fa DIM TXFCNFA, 20), CNP), N'(NF4) 
"LE CONTACT EST-IL ALLUME {O/N) 


11010 
Li 1) 


SR : 

110460 DATA "LES LUMIERES MARCHENT-ELLES (0/7 
No %",:,4 

11050 DATA "REMPLACER LE CONTACTEUR",0,0 
dé DATA "LES CONNECTIONS AVEC Lé RATTERI 
E SONT ELLES BRONNES CON) F5, 6 
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11070 DATA CCHäRGER Lé BATTERIE QU FOUSSER 
LA VOITURE CCM) 
11060 DATA REPARER LES RRANCHEMENTS", 0,0 
DATA fin du programme", 0,0 

READ TXE CM) 8 READ CO CMD 3 RESD N (MH) 
END FCR M 
DEFine START 


at ei 
yat 


LEO 


Cette routine est très simple. Un pointeur, 
CP% est utilisé pour indiquer la position 
courante dans le tableau; il est initialisé à 1 
et pointe vers le premier texte. Si cela 
correspond à une sortie O(CP#%)=0, on sort de la 
boucle QUESTION, et CP% sera réinitialisé à 1 
lorsque la PROCedure RESTART sera rappelée. 
Dans le cas contraire, O(CPS)#0, la boucle 
QUESTION demande une réponse. Si celle-ci est 
"O", CP% prend la valeur correspondante du 
tableau N(N). 


Le FRIANTSCODIAGNOSTIC DE FANNE": UNDE 


Ë Feat QUESTION 
FU FRINTA TX CCF) 3 ï 
: à THEN EXIT GUESTION 


#30 IF O(CF" 
Fe) LINESGATSISE 1) 
LOO LFOINESNO THEN CFée0t (CPL) ss NEXT QU 
Fr 
dE QUESTION 
EFeat RESTART 


L'APPROCHE PARALLELE 


Après l'approche séquentielle par 
débranchement utilisée ci-dessus, l'approche 
parallèle consiste à poser toutes les questions 
possibles avant de donner un diagnostic. Cette 
méthode est généralement plus longue que celle 
qui consiste à suivre une bonne structure en 
arbre, mais il est plus probable qu'elle donnera 
la réponse correcte, car aucune comparaison 
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possible ne sera omise. 


Voyons comment nous pourrions distinguer 
plusieurs moyens de transport. 


Nous allons examiner 8 caractéristiques, et 
indiquer par 1 ou 0 la présence ou non de 
celles-ci pour cinq modes de transport. 
(Tableau 5.1). En examinant attentivement on 
remarque que les résultats sont différents dans 
chaque cas, il est donc possible de distinguer 
un moyen de transport par ces critères. 


vélo auto train avion cheval 
roues 1 1 1 1 0 
ailes 0 0 0 1 0 
moteur 0 1 1 1 0 
pneus 1 1 0 1 0 
rails 0 0 1 0 0 
fenêtre 0 1 1 1 0 
chaîne 1 () (0) 0 0 
direction 1 1 0 1 1 


Tableau 5.1: Présence ou non des 
caractéristiques. 


Nous allons entrer ces valeurs en DATA, puis 
les placer dans un tableau à deux dimensions 
CA(N,N), qui représentera la table ci-dessus, et 
un tableau MT$(N), contenant les chaînes de 
caractères de chacun des mobiles. (Remarquer 
que ECRAN est inchangé.) 


10 ECRAN 

20 START 
11000 DEFine FROCedure START 
11010  RESTORE 
11020 DIM MT#(5), CA(5,6) 
11030 DATA "VELO",1,0,0,1,0,0,1,1 
11040 “DATA "AUTOM, 1,0, 1,4,034,0,1 
11050 DATA "TRAIN",1,0,1,0,1,1,0,0 
10060 DATA "AVION", Lilo lulsOsdeOs 
10070 DATA "CHEVAL",0,0,0,0,0,0,0, 1 
10080 FOR Neil TO 5 


10090 READ MTS (CN) 
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LOTO FOR Mel TO 6 
READ CAS CN, M) 
NEXT M 

NEXT MN 

11040 END DEFine START 


Nous pouvons maintenant utiliser les PROCe- 
dures QUESTION pour savoir si la première carac- 
téristique est présente ou non, puis COMPARER 
pour voir quels modes de transport répondent à 
la question. (Organigramme 5.4). 


Organigramme 5.4: Approche parallèle. 


A0 REFeat QUESTION 

ere) FRINT\AUA-T-IL DES ROUES "3 sVERIF 
280 END KEFeat QUESTION 

18000 DEFine FARGCedure VERITF 

10 INFESAISISE (1) 

Cet Ne 1 
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LES O IF OINE=UN" THEN AN%æ0 
LEO 4 UC FÜR N&l TO 
IF FEN,L)=ANX THEN FRINT MT#4(N) 
END FÜR N 
12070 END DEFine VEKIF 


Dans ce cas une réponse OT produira 
l'impression: "VELO, AUTO, TRAIN, AVION". La 
réponse "N'"' donnera seulement: "CHEVAL". 


Ceci montre clairement un inconvénient 
possible de la méthode parallèle; en effet, 
bien que nous venions de démontrer que seul le 
cheval n'a pas de roue, le programme continue à 
poser toutes les questions avant de donner sa 
réponse. Cela n'est pas aussi sot qu'il y 
paraît au premier abord. En effet on peut 
répondre "O" à la question suivante (a-t-il des 
ailes?); on remarquera alors que l'ordinateur, 
en toute logique, refuse de croire aux chevaux 
volants. 


Utilisons maintenant la PROCedure COMPARER 
pour examiner les huit caractéristiques dans une 
même boucle. Il suffit de faire de légères 
modifications,d'ajouter un pointeur AP%, qui est 
incrémenté pour comparer l'élément suivant du 
tableau des caractéristiques CA$(N,AP%). (Orga- 
nigramme 5.5). 


at QUESTION 


FRINTAMA-T-IL DES ROUES "32VERIF 
FRINTS"A-T-IL DES AILES "ss VERIF 
FRINT\"A-T-TL UN MOTEUR “5 3 VERIF 
FRINTA"A-T-IL DES FNEUS "y: VERTF 


a NE DE RESCGIN DE RAILS My: VERIF 


ere END REPeat QUESTION 
LIOZO DIM MTECS,7), CAE CE, 9) 2 AFF 
1BOËO APR APA +: ANSE 
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Organigramme 5.5: Comparaisons successives 
sur les caracteristiques. 


DE MIEUX EN MIEUX 


La routine ci-dessus donnera successivement 
après chaque question, la liste des moyens de 
transport sélectionnés, mais elle ne dira pas 
quels sont ceux qui répondent à l'ensemble des 
questions. Modifions-la pour obtenir le nombre 
de sélection de chacun des moyens de transport. 
Nous utiliserons un tableau SU(N), dont chaque 
poste correspond à un moyen de transport, et 
sera incrémenté lorsque l'on trouvera l'égalité 
CA(N)=AN$S. (Organigramme 5.6). 


00 FRINT NPRESULTAT" 
io FOR Neï TO S 
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FECLNT CE CN), SU CN) 
SU EN) 0 
N 


Organigramme 5.6: Recherche de SU(N). 


Si un moyen de transport répond à tous les 
critères,SU(N) sera égal à 8. Si un ou 
plusieurs critères ne sont pas remplis, il sera 
diminué d'autant. Il est particulièrement inté- 
ressant de mesurer le résultat SU(N) lorsqu'il 
s'agit de critères subjectifs. (Peut-on parler 
de la direction d'un cheval?) On peut penser 
que de toutes façons le résultat le plus fort 
indiquera la bonne réponse. (Noter que dans ce 
cas chacune des bonnes réponses a le même 
poids.) 


ENCORE MIEUX AVEC DES CHAINES DE BITS 


Vous avez sans doute remarqué que nous avons 
utilisé 8 critères, il vous est peut-être venu à 
l'idée que cela n'était pas entièrement fortuit, 
car il y a huit bits dans un octet. Si nous 
représentons chaque caractéristique par un 
nombre binaire, chacun des moyens de transport 
peut être décrit par un seul nombre décimal 
somme de ces nombres binaires, au lieu d'une 
suite de 8 valeurs séparées. Nous ferons la 
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transformation en décimal en prenant comme bit 
de poids faible celui de la ligne du haut (les 
roues). Chacune des caractéristiques vaut 1, 2, 
4, 8, 16, 32, 64, 128, en notation décimale. 
(voir Tableau 5.2). 


vélo auto train avion cheval 


roues 1 
ailes 0 
moteur 0 
pneus 8 
rails 0 
fenêtre 0 
chaîne 64 
direction 128 128 


GO — 
OONOBO— 
DOOOOOoOO 


_ 
N 
[ee] 
_ 
N 


Total 201 173 53 475 128 
Tableau 5.2: Des poids binaires. 


Il ne sera pas très difficile de remplacer 
notre résultat de 1 à 8, par le nombre binaire 
qui convient, en nous souvenant que la valeur 
décimale du nombre binaire double en passant à 
la caractéristique suivante, et que nous devons 
l'ajouter au résultat si AN%-1. (Organigramme 
571: 


En regardant de plus près, on s'aperçoit 
qu'il suffit de conserver le nombre total SU, 
obtenu en additionnant les valeurs binaires des 
bonnes réponses. Plus besoin de boucle, ni de 
comparaison avec chaque poste du tableau, ni 
même de tableau à deux dimensions, les seules 
données nécessaires sont les chiffres décimaux, 
DV(N), qui décrivent chaque moyen de transport. 
Puis après avoir posé toutes les questions, on 
comparera ces chiffres à la valeur décimale, 
SU%, obtenue par transformation des nombres 
binaires donnés par les réponses. (Organigramme 
5.8). 
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+ VALEUR 
BINAIRE 


Organigramme 5.7: Résultat en utilisant les 
nombres binaires. 


11020 DIM MT& Ch, 7) 1 DV () 
LAOSQ DATA VELO", OI 
11040 DATA MAUTOM, A7 
L1OSO DATA TRAIN, es 
11060 DATA "AVION", 175 
11070 DATA "CHEVAL", 126 
11090 READ CAS (N) 
11 100 READ DV (CN) 
LLITO REMar k ANNULE 
11120 REMar k ANNULLEE 
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11140 IF ANY%=1l THEN SUX=SUY+EVYX 
11150 HV REV YA+HEUYX 
11160 REMark  ANNULEE 


Organigramme 5.8: Comparaison des chiffres 
à la valeur décimale. 


Il est évident que cette méthode fait gagner 
beaucoup de temps et de place-mémoire, car le 
tableau doit être mis en place avant toute 
comparaison, et chaque élément ne demande que 
quelques octets. Ceci est particulièrement in- 
téressant lorsqu'il y a beaucoup d'informations 
à traiter. La méthode n'exige pas le calcul a 
priori des nombres décimaux équivalents à chaque 
configuration. En outre elle ne donne aucune 
indication dans le cas d'objet ne répondant pas 
à tous les critères. (Remarquez que l'on ne 
peut pas prendre le nombre décimal le plus 
proche, car la valeur décimale correspondant à 
chaque critère dépend de sa position.) 


On peut toujours faire les calculs à la 
main, mais il est plus facile de définir une 
FONCtion BINaiïire qui les effectuera. On imprime- 
ra comme repère une ligne de 8 points, puis on 
entrera la chaîne de bits, qui sera transmise à 
BIN. Cette fonction découpe la chaîne à partir 
de la droite (poids faibles), et si le bit est à 
1, la valeur décimale DV% est modifiée. (Noter 
que le superBASIC permet la comparaison entre 
une chaîne et une variable simple.) Lorsque tous 
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les bits ont été testés, la fonction retourne 
valeur décimale DV. 


ARR RERSRS 


TROIE TS) 
O0 10 
OO Q 
SOOHO 
ATRIN LT) 


SOC) 


50070 


CLS 

PRINT Moss uusnu" 
INPUT NS& 

FRINT HIN(N#) 

5Q TO 2 


DÉFine FUNction HIN(N#) 
DV4=0 : BDY=0 
FOR Neg TQ 1 STEF +1 
IF ON#(N)æl THEN DVYxDVYX+EDY 
HD RD 44H04 
END FOR MN 
KE Turn DV% 
END DEFine HIN 


QL 


la 
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6 


Un système 
expert 

… qui enrichit 

les connaissances 


Les systèmes experts décrits ci-dessus 
fonctionnent bien, mais ils exigent que vous 
leur donniez par avance les règles correctes 
pour prendre leurs décisions, ce qui est 
astreignant, et même quelquefois impossible 
lorsque vous n'êtes pas sûr de la réponse. 


Par contre, il est possible de construire un 
programme expert qui tirera un enseignement de 
ses erreurs et en déduira des règles de 
décision, ce que les experts essayent de faire. 
La seule chose nécessaire est de lui dire quand 


il se trompe, mais pas en quoi. C'est 

évidemment un avantage si vous n'êtes pas vous 
Lal A “ ®. + 

même sùür des règles à appliquer. Dans ce cas 


nous partons avec une série de caractéristiques 
(critères) qui doivent nous permettre de 
distinguer entre eux différents objets 
(sorties), sans établir pour nous guider un 
tableau de présence ou non de celles-ci (règles 
de décision). Le programme construit lui-même 
ce tableau. 


Nous allons utiliser notre exemple sur les 
moyens de transport et commencer par initialiser 
les variables. FES est le nombre de 
caractéristiques à prendre en compte, 8, FES$(N) 
est un tableau qui contient leur nom, FV(N) un 
tableau des valeurs attribuées à chacune, et 
RU(N) un autre qui contient l'ensemble des 
valeurs de la table de décision pour chaque 
caractéristique. 
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10 ECKRAN 
20 START 


10000 DEFine FROCedure ECRAN 
10010 MODE 4 

10020 CLS HO CLS #1 » CLS #2 
100350 END DEFine ECKRAN 


11000 DEFine FROCedure START 


10010 RESTORE 

11020 FEeg : DIM FES$(FE 4,8) ,FV(FEY) , RU(FEY#) 
11030 FOR Neal TO FEY% 

11040 READ FE% (N) 

11050 END FOK N 


11060 DATA "ROUES", "AILES", "MOTEUR", "PNEUS", 
"RAILS", "FENETRES", "CHAINE", "DIRECTION" 
11070 END DEFine START 


On examine les caractéristiques tour à tour 
dans la PROCedure QUESTION (Organigramme 6.1). 
La valeur de la caractéristique courante, FV(N) 
est mis à 0, une question O/N est posée pour 
chaque caractéristique. Si la réponse IN$ est 
oui (0), la valeur FE(N) est mise à 1, dans le 
cas contraire elle reste à 0. Ceci donnera un 
tableau de 0 et de 1 FV(N), décrivant la sortie. 


30 KEFeat QUESTION 


60 FOR Næl TO FE%X 

70 FV CN) #0 

80 FRINT FES (CN); 

90 IN TNEEYS (1) 

100 INGeCHRS (CCODE CIN#) 11 ci) 4) 
110 IFOOINGE= "OU THEN FV CN): 


120 END FOR N 
200 END REFeat QUESTION 


(Remarquez que l'on utilise une méthode plus 
simple que dans la procédure SAISIS $. en testant 
un seul caractère). 


Maintenant dans la PROCedure MAJ DE la 
variable de décision DE% est mise à 0, puis on y 
met la somme de la valeur courante de DE% plus 
la somme des valeurs de chaque critère FE(N), 
multipliée par les valeurs de la table de déci- 
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sion RU(N). 


ou [VALEUR 


RACTE- 
fn Rte pa 


| PRINT MAJ | 
REGLES REGLES 


Organigramme 6.1: Apprendre à distinguer 
deux objets. 


DUQUEL S'AGIT-IL? 


Au départ nous allons prendre un cas simple 
avec deux possibilités (vélo ou auto). Décidons 
arbitrairement que si la valeur finale de DE% 
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est égale ou supérieure à 0, ce sera un vélo, et 
que si celle-ci est inférieure à 0 ce sera une 
auto. Peu importe si cela est faux, le programme 
le rectifiera. Quand celui-ci a pris une déci- 
sion sur la base de la valeur de DE%, il y a 
confirmation ou infirmation du résultat. 


1 

INEETNÉENE (10: INEÆCHRGE (CCODE CINE) 15 HE) 
2): FARINT IN#: VELO 
190 IF DEXSO THEN FRINTASEST-CE UNE SUTCO 
RIINESINEENVE (1) 3 INEECHRSE CCCODE CIN#) 55 4) —25 
és PRINT INÆ: VOIT 


OT IF DEXS=0 THEN FRINT\"EST-CE UN VELO " 
+) 


Selon que l'on confirme ou non le choix de 
l'ordinateur, il y a trois possibilités. 


S'il est correct, il n'y a rien 


faire, la 
variable de pondération WT% est mise 0 


à 
à 0. 

Si DES est >= 0, et si l'ordinateur s'est 
trompé (il a choisi l'auto), il faut mettre WT 
à -1. 


Si DES est < 0, et si l'ordinateur s'est 
trompé (il a choisi le vélo), il faut mettre WT3% 
à +1. 


15000 DEFine FROCedure VELO 

LAO10 IF INéæ"O" THEN WTA=0 » MAJ REGLE 
LOC WT sel 1 MAJ REGLE 

15080 END DEFine VELO 

14000 DEFine FKOCedure VOIT 

IF INg=e"O" THEN WTA4e0 : MAJ REGLE 

02 WT£zl: MAJ REGLE 
LANEO END DEFine VOIT 


La variable de pondération joue son rôle 
dans la PROCedure MAJ REGLE qui modifie les 
valeurs du tableau RU(N), en les minorant si 
elles sont trop fortes et en les majorant dans 
le cas contraire. 


15000 DEFine FROCedure MAJ _REGLE 
15010 FRINT X'REGLES'N 
15020 FOR Neil TO FE% 
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15030 RU CN) 2 (€ CRU (ND XS+ (FV CN) KWTA) KE) /E 
15040 FRINT RUÇCN),FES (CN) 

15050 END FOK NM 

15060 END DEFine MAJ_REGLE 


Pour vérifier le fonctionnement, faisons une 
démonstration; tapez RUN, puis les entrées 
ci-dessous. (Remarquez la ponctuation choisie 
pour que l'affichage indique clairement la 
relation entre l'entrée et la valeur de la 
règle). 


Entrons: 
ROUES O AILES N MOTEUR N PNEUS O 
RAILS N FENETRES N CHAINE O DIRECTION O 


Le programme restitue une valeur de 0 pour DES, 
qui est la valeur initiale et qui n'a pas été 
modifiée. 


DE%=0 


Comme DE%S est à O0 le système présume qu'il 
s'agit du VELO, et demande confirmation. On lui 
répond bien sûr par "Oui". 


EST CE UN VELO? O 


Imprimons le contenu de la table des règles 
RU(N). On voit que les valeurs sont toutes 
restées à 0, car par hasard on obtient la bonne 
réponse! 


REGLES 


ROUES 
AILES 
MOTEUR 
PNEUS 
RAILS 
FENETRES 
CHAINE 
DIRECTION 


OoOQOOOOoOO 


Entrons maintenant la séquence suivante pour 
décrire une AUTO: 
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ROUES O AILES N MOTEUR O PNEUS O 
RAILS N FENETRES O CHAINE N DIRECTION O 


DE% est toujours à 0, on tombe donc sur la 
mauvaise conclusion, et la mauvaise question est 
posée (VELO), il faut donc répondre "Non": 

DE%=0 

EST CE UN VELO? N 


Comme il y a eu une erreur, la règle de 
décision est modifiée en soustrayant 1 à toutes 
les valeurs du tableau où la réponse a ete 


"Oui", Le tableau des règles contient 
maintenant: 
REGLES 
-1 ROUES 
0 AILES 
-1 MOTEUR 
1 PNEUS 
0 RAILS 
-1 FENETRES 
0 CHAINE 
-1 DIRECTION 


Si l'on entre à nouveau les valeurs pour une 
AUTO, le programme donnera la bonne réponse. 


ROUES O AILES N MOTEUR O PNEUS O 
RAILS N FENETRES O CHAINE N DIRECTION O 
DES=-5 


EST CE UNE AUTO? O 


REGLES 

-1 ROUES 

0 AILES 

-1 MOTEUR 
-1 PNEUS 

0 RAILS 
-1 FENETRES 
0 CHAINE 


-1 DIRECTION 
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Avant de vous réjouir essayez de lui donner 
à nouveau les valeurs pour un VELO :il va encore 
se tromper! 


ROUES O AILES N MOTEUR N PNEUS O 
RAILS N FENETRES N CHAINE O DIRECTION O 
DE%=-3 


EST CE UNE AUTO? N 


REGLES 

0 ROUES 

(0) AILES 
-1 MOTEUR 

0 PNEUS 

0 RAILS 

-1 FENETRES 
1 CHAINE 

0 DIRECTION 


Les caractéristiques présentes communes à 
AUTO et VELO sont majorées de 1 automatiquement, 
et si nous répétons la dernière phrase on 
obtiendra la conclusion correcte. 


ROUES O AILES N MOTEUR N PNEUS O 
RAILS N FENETRES N CHAINE O DIRECTION O 
DE%=1 


EST CE UN VELO? O 


REGLES 

0 ROUES 

0 AILES 
-1 MOTEUR 

0 PNEUS 

(0) RAILS 

-1 FENETRES 
1 CHAINE 

0 DIRECTION 


La situation est maintenant stable et le 
programme reconnaîtra toujours correctement AUTO 
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et VELO, chaque fois que l'on donnera les bonnes 
caractéristiques. 


ROUES O AILES N MOTEUR O PNEUS O 
RAILS N FENETRES O CHAINE N DIRECTION O 
DES=-2 


EST CE UNE AUTO? O 
REGLES 


0 ROUES 

0 AILES 

1 MOTEUR 

(0) PNEUS 

0 RAILS 

1 FENETRES 
1 CHAINE 

0 DIRECTION 


Remarquez que la valeur finale de DE% est de 
1 pour un VELO, et -2 pour une AUTO. Si vous 
regardez les valeurs du tableau des règles, vous 
verrez que cela correspond à la fois en valeur 
et en position aux seules caractéristiques qui 
distinguent ces deux objets (CHAINE pour VELO, 
MOTEUR et FENETRE pour AUTO). 


GENERALISATION. 


Vous avez appris quelque chose à votre 
ordinateur, mais ce n'est pas extraordinaire 
d'être capable de distinguer deux objets l'un de 


l'autre. Etendons le système pour traiter un 
nombre de possibilités plus grand (Organigramme 
6.2). 

Pour commencer, définissons le nombre 


d'objets (sorties) que nous voulons reconnaître, 
OB%, mettons -les en DATA, qui sont lues dans un 
nouveau tableau OB$(0B%). Remplaçons notre 
tableau de décision par un autre à deux 
dimensions RU(FE%,0B%), qui contient les règles 
pour chaque objet, puis nous initialisons un 
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tableau de décision DE(N), pour conserver les 
valeurs de décision de chaque objet. 


20 START 
11000 DEFine FRKOCedure START 
11010 RESTORE 
11020 FEeg 2 QHAeS s DIM FE&(FEYX, 9) ,FV(FEY) 4 
RUCFEZ , O4), OR (OHY, 7), DE CORY) 3 TS 


11040 FOR Næl TO FE%X 
11040 READ FES$ (N) 
11060 END FOR N 


11060 DATA MARQUES", CAILES", "MOTEUR", "PNEUS", 
"RAILS", "FENETRE", "CHAINE", "DIRECTION" 


11070 FOR Nel TO OK% 

11080 KEAD OF (N) 

11090 END FOR N 

11100 DATA "VELO", "AUTO", AVION", TRAIN", 
"CHEVAL." 


11110 END DEFine START 


Au lieu d'une variable de décision unique 
DE$, il nous faut une valeur pour chaque objet. 
A chaque cycle il faudra mettre à 0, d'abord 
DES, puis tous les éléments du tableau décision 
DE(N), de façon à commencer le traitement de 
chaque objet dans une situation claire 
(ZERO DE). 


50 ZERO .DE 


14000 DEFine FROCedure ZEKO.DE 
14010 DE Y=0 


14020 FOR Næl TO OK% 
14030 DE (N) #0 
1 4040 END FOR N 


14080 END DEFine ZEKO.DE 


Les questions sur les valeurs de chaque 
caractéristique sont ensuites entrées comme 
ci-dessus. 


40 KEFeat QUESTION 
60 FOR Ni TO FEX 


70 FV (CN) #0 
80 PRINT IFES# (CN) 3 
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EN LNÉEVS (10) 


INS=CHRS ÇCCODE CIN#) 11 ae) mi) 
FECINT  UINS 
IF INe"O" THEN FV CN) x] 
END FOR N 


a C0) END DEFine QUESTION 


VALEUR VALEUR PRINT 
DECISION CARACTE - CARACTE- 
= Ÿ RISTIQUE-Ÿ | |rIS7/QUE 


Non aus 
| > re MAT 
YARIABLLS 
out 
DE=DECN) 
TSaN 
Non 
£EST- CE NON PRET 
s 
98$ (TS)? OBJETS ue> 
our! oui 
Now NON NON 
MAJ lou out ou | PARIAT 
hi REGLES PS DEC DEC 


MAT CIN 
REGLES oui 


Organigramme 6.2: Apprendre les règles, 
généralisation. 


MAJ DE met maintenant à jour chaque élément 
du tableau de décision, DE(N), selon l'état des 
valeurs entrées FV(N) et le contenu des éléments 
correspondants du tableau des règles RU(N,M). 
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140 MAJ DV 
15000 DEFine FROCedure MAJ_DV 
15010 FOR Næl TQ FE% 
15020 FOR Mel TO OX 
15030 DE (M) (DE (M) KE) + CCF V CN) % 
RU CN, M) X3)) 7/3 
15040 END FOR M 


15050 END FOR N 
15060 END DEFine MAJ_DE 


Il faut maintenant regarder si les valeurs 
de décision de chaque objet DE(N) sont 
supérieures ou égales à DE%. Dans ce cas nous 
conservons N dans un compteur TS%, qui indiquera 
l'objet pour lequel le nombre de comparaisons 
est le plus fort. 


150 DECISION 


16000 DEFine FROCedure DECISION 

16010 FOR Næl TO FE%X 

16020 IF DE CN) #ÆDE%X THEN DEX%DE (N) 3 TS4#N 
16050 END FOR N 

16040 END DEFine DECISION 


Le système fait d'abord la supposition qu'il 
s'agit de la bonne réponse, il demande 
confirmation, et si la réponse est affirmative 
il ne change rien et pose la question suivante. 


160 REFONSE 


17000 DEFine FROCedure REFONSE 
17010 FRINT \"EST CE "sOR&(TS%)g" "3 


17020 INSSINÉEYS# (—1) 

17030 INS=CHKS& (CODE (IN) 11 2) -42) 
17040 PRINT IN$ 

17050 IF IN&="Q" THEN NEXT QUESTION 


17060 END DEFine REFONSE 


Dans le cas où la réponse est mauvaise le nom et 
le numéro de chaque objet sont affichés, et 
l'ordinateur vous demande le numéro de la bonne 
réponse CR3. (Des bornes sur CR% éviteront 
d'entrer des valeurs illégales). 
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170 CORRECTION 


18000 DEFine FKOCedure CORRECTION 

18010 FOR Neæl TO OR% 

18020 FRINT NN, OES# (CN) 3 

18030 END FOR N 

18040 FRINT NNOQUEL NUMERO® "3 

1800 ENG TNÉEYS (1) 

19060 CRASCODE CIN) -48 1 IF CRACL OK CRASS 
THEN CORRECTION 

19070 PRINT CRY 

18080 END DEÉFine CORRECTION 


Dans MAJ REGLES nous devons d'abord voir si 
la valeur de décision de chaque objet DE(N) est 
supérieure ou égale à DE%, ET si l'objet 
considéré N'EST PAS la bonne réponse. Si c'est 
le cas les règles sont à nouveau mises à jour par 
soustraction des valeurs des caractéristiques 
correctes, FE(N). 


180 MAJ_REGLES 


19000 DEFine FROCedure MAJ REGLES 
19010 FOR Næi TO OH% 


19020 IF DE (N)&DEYX AND NE GCRY THEN 

19030 FOR Mel TO FE% 

19040 RU CM, ND = (CRU (M, ND XS) — 
CFV CM) KS)) 7/3 

19050 END FOR M 

19060 ELSE NEXT N 

19070 END IF 


19080 END FOR N 


Puis les valeurs des caractéristiques correctes 
sont ajoutées pour effectuer le changement. 


19090 FOR Mxl TO FE% 

19100 RU CM, CR) CCRU CM, CR4) KG 
(FVCM) XXE) )/E 

19110 NEXT M 

19120 END DEFine MAJ REGLES 


Enfin AFF REGLES affiche l'état du tableau des 
règles, de façon à ce que l'on y voie plus 
clair. 


Un système expert... gg 


190 AFF_REGLES 

20000 DEFine FROCedure AFF_REGLES 

20010 CLS #2 sr CLS #7 

20020 FOR Mel TO OBY 

20030 AT #2, 3,Mel 2 PRINT #2,DE (Mg " "3 

DE%3" "sCR% 

20040 FOR Nel TO FE% 

20080 AT #5, (NKE) =, Mel 8 PRINT 
#5, RU CN, M) 3 

20060 END FOR N 

20070 END FOR M 

20080 PRINT 


20090 END DEÉFine AFF REGLES 


Pour rendre l'ensemble du programme plus 
compréhensible nous allons utiliser les 
possibilités multi-fenêtre du QL (Figure 6.1). 
On utilisera les PROCedures AFFICHAGE et LABEL. 
On passera sur les détails de présentation, 
l'action principale se passera dans la fenêtre 
par défaut (moitié droite de l'écran), avec 
l'affichage de DE(N), DE% et CE% dans la fenêtre 
#2, les règles dans la fenêtre *#3, et des 
intitulés divers dans les fenêtres #44, #5, et 


#6. 


Remarquez qu'une procédure ECRAN est définie 
pour effacer l'écran au départ et donner un 
filet de sécurité qui vous permet de lister le 
programme. Les deux paramètres passés à ECRAN 
sont PAPER et INK. La frappe de ECRAN 6,0 en 
commande directe avant LIST donnera le listing 
en blanc sur fond noir sur tout l'écran. 


19 ECRAN 0,6 3 AFFICHAGE 


30 LABEL 

10000 DEFine PROCedure AFFICHAGE 
10010 MODE © 

10020 CLS #0 

10030 INK #0,7 

10100 WINDOW #1,230,200,257, 16 
10110 ORDER #1,3,6 

10120 CSIZE #1,2,0 

10130 PAPER #1,5 


10140 INE #1,0 
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10150 CLS #1 
10200 WINDOW #2, 140, 50, 105, 4% 


10220 CSIZE 352,0,0 
10240 INK #2,2 


10250 CLS #2 

10300 OPEN #3, SCR_170X60A85X100 
10510 BORDER #3,3,2 

10320 CSIZE #3,0,0 

10330 FAFER #3,6 

10540 INK #3, 0 

10350 CLS #3 

10400 OPEN #4,SCR_175X90A80X155 
10410 ORDER #4,5,2 

10420 CSIZE #4,0,0 

10430 INK #4,1,0 

10440 FAFER #4, 6 

10450 CLS #4 

10500 OPEN #5, SCR_230X70A26X90 
10510 BORDER #5,3,2 

10520 CSIZE #5,0,0 

10530 INH 45,4 

10540 FAPER  #5,6 

10550 CLS #5 

10600  OFEN #5, SCR_220X70426X18 
10610 BORDER #6, 5, 2 

10620 CSIZE #6,0,0 

10630 INK #6,1,4 

10640 PAPER 46,6 

10650 CLS #6 

10700 END DEFine AFFICHAGE 


20000 DEFine FROCedure ECRAN (A,E) 
20010  WINDOW, #2, 460,200,26, 16 
20020  FAPER #2,A 
’ INK #2,E 

CLS #2 
END DEFine ECRAN 


14000 DÉFine FRKOCedure LABEL 
LEO O0 AT H6,11,0 2 CSIZE Hé6,1,0 % FKINT 
#6, "DE (N) DE CRA! 8 CSIZE #6,0,0 
13020 FOR Næl TO OH 
LOS O AT HGO,LI,N 3 FRINT #6, 0H$ (N) 
1040 ATOS LAN 4 PRINT 4, HS (N) 
13080 END FOR NM 
15060 FOR N&l TO FEX 
13070 FOR Mzel TO 8 
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13080 AT #4, (NX) 2, M1 

15090 FRINT #4,FES$ (N,M) 

13100 AT #S5,15,0 3 CSIZE #5,3,0 : FRINT 
#5, "REGLES" : CSIZE #5,0,0 

14110 END FOR M 

LL e0 END FOR N 


13150 END DEFine LABEL 


Une fois encore une démonstration vous fera 
comprendre ce qui se passe lorsque l'on entre la 
suite ci-dessous: 


ROUES O AILES N 
MOTEUR N PNEUS O 
RAILS N N FENETRE N 
CHAINE O DIRECTION O 


Le programme arrive à la conclusion erronée 
qu'il s'agit du CHEVAL, aussi il faut lui dire 
que c'est faux et lorsqu'il demande la bonne 
réponse donner VELO (1). 


EST-CE CHEVAL? N 


1 VELO 

2 AUTO 

3 TRAIN 
4 AVION 
9 CHEVAL 


LEQUEL EST-CE? 1 


L'état des différents tableaux est affiché pour 
information dans les fenêtres de gauche. 


DE(N) DE% CR% 
AUTO 0 0 1 
TRAIN (0) 0 1 
AVION (0) 0 1 
CHEVAL (0) 0 1 
REGLES 
VELO 1 0 17 0 0 1 1 


0 
AUTO -1 0 0-1 0 0-1 -1 
TRAIN -1 0 
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Un système expert enrichi. 


Figure 6.1: 
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AVION -1 0 0-1 0 O-1 -1 
CHEVAL -1 0 0-1 0 O-1 -1 
R A M PR F C D 

O0 I ON À E H I 

ÙU LOT E I N A R 

E EE E U L E I E 

S S U S S T N C 

R R E T 

E L 

S O 

N 


A l'examen, vous verrez que les caractéris- 
tiques qui ont produit des changements dans les 
règles sont les roues, les pneus, la chaîne et 
la direction. Ce sont toutes les caractéristi- 
ques du VELO, qui ne se trouvent pas chez le 
CHEVAL. Vous remarquerez aussi que les valeurs 
de ces caractéristiques sont maintenant à 1 dans 
le tableau des règles du VELO, et à -1 pour les 
autres objets. Maintenant, donnons-lui les ca- 
ractéristiques d'une AUTO, il la prendra pour un 
VELO; effectuons la correction. Remarquez que le 
tableau des règles pour VELO et AUTO est 
modifié pour tenir compte des informations 
nouvelles. 


ROUES O AILES N 
MOTEUR O PNEUS O 
RAILS N FENETRES O 
CHAINE N DIRECTION O 


EST-CE VELO? N 


VELO 
AUTO 
TRAIN 
AVION 
CHEVAL 


O1 & W ND D — 


LEQUEL EST-CE? 2 
DE(N) DES% CR% 


VELO 3 3 2 
AUTO -3 3 2 
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TRAIN -3 3 2 
AVION -3 3 2 
CHEVAL -3 3 21 
REGLES 

VELO O 0-1 0 0-1 1 0 

AUTO 0 0 1 0 0 1-1 0 

TRAIN -1 0 0-1 0 O-1 -1 

AVION -1 0 0-1 O0 O-1 -1 

CHEVAL -1 0 0-1 0 O-1 -1 

R A M PR F C D 

O I O N A E H I 

ÙU LOT E I N A R 

E EE E U L E I E 

S S U S S T N cC 

R R E T 

E I 

S O 

N 


Essayez ensuite AVION, il répondra AUTO, 
effectuez la correction. 


ROUES O AILES O 
MOTEUR O PNEUS O 
RAILS N FENETRES O 
CHAINE N DIRECTION O 


EST-CE AUTO? N 


1 VELO 

2 AUTO 

3 TRAIN 
4 AVION 
s CHEVAL 


LEQUEL EST-CE? 4 


Et maintenant TRAIN, la réponse est toujours 
fausse. 


ROUES O AILES N 
MOTEUR O PNEUS N 
RAILS O FENETRES O 


CHAINE N DIRECTION N 
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EST-CE AVION? N 


1 VELO 

2 AUTO 

3 TRAIN 
Es AVION 
5 CHEVAL 


LEQUEL EST-CE? 3 


Enfin CHEVAL, il répond AVION. 


ROUES N AILES N 
MOTEUR N PNEUS N 
RAILS N FENETRES N 
CHAINE N DIRECTION O 


EST-CE AVION? N 


1 VELO 

2 AUTO 

3 TRAIN 
4 AVION 
5 CHEVAL 


LEQUEL EST-CE? 5 


Si vous continuez à rentrer des informations 
il finira par donner la bonne réponse chaque 
fois. Cela prendra plus ou moins de temps selon 
l'importance des différences entre les 
caractéristiques des objets, et selon leur ordre 
d'introduction dans le système. Attention cela 
peut prendre beaucoup de temps! Voici une 
séquence qui donne le bon résultat. 


AVION (TRAIN) AUTO (AVION) VELO (OUI) 


AUTO (OUI) AVION (AUTO) AVION (OUI) 
CHEVAL (OUI) AVION (VELO) AUTO (AVION) 
AVION (AUTO) AVION (AUTO) AUTO (AVION) 
AUTO (OUI) AVION (AUTO) AVION (OUI) 
AUTO (OUI) AVION (OUI) CHEVAL (OUI) 
VELO (OUI) TRAIN (AUTO) TRAIN (OUI) 
VELO (OUI) AUTO (AVION) AUTO (OUI) 
AVION (AUTO) AVION (OUI) AUTO (AVION) 
AUTO (OUI) AVION (OUI) AUTO (OUI) 
VELO (AUTO) AUTO (OUI) AVION (OUI) 


TRAIN (OUI) CHEVAL (OUI) VELO (OUI) 
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Comme l'échelle des valeurs va de +6 à -2, vous 
ne serez pas surpris du temps nécessaire pour en 
arriver-la. 


REGLES 
VELO LL OEeT. Lo 0er... 0 
AUTO -1 4 17 0-1 1-2 0 
TRAIN 0 -1 1-2 2 1 -1 -2 
AVION -2 6 0 0-1 0-2 -2 
CHEVAL -1 0 0-1 0 O-1 01 
R A M PR F C D 
O I O N A E H I 
ÙU LT E I N A R 
E EE EE U LE IL E 
S S U S S T N cC 
R R E T 
E I 
S O 
N 


DIGESTION AUTOMATIQUE DES DONNEES. 


Notre expert finit par trouver les règles 
lui-même, mais il est fastidieux de faire la 
conversation avec lui pendant qu'il construit 
son tableau de règles. Dans la réalité il 
serait bien préférable de lui donner une masse 
d'informations sur un sujet, et de le laisser 
seul digérer le tout et en déduire les règles. 


I1 n'est pas très difficile de modifier 
notre programme qui traite les informations des 
DATAS. 


Tout d'abord entrons l'information avec le 
format suivant, nom de l'objet, suivi de "O" ou 
"N" pour chaque caractéristique, dans le bon 
ordre. 


293000 REMark CARACTERISTIQUES 
25010 DATA VELO!" MONS UNS UNESHOM, ENT UNE Ut 
Q" : 10" 
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ARTS RUE) DATA MAUTO" , Qi ge LL ñ UN’! y nf) LL x QU 4 LL y QT LT RL ; LA LL : MN! » 
LL çr! 
av Eh Q) DATA TRAIN", MO, UN, MO NM, MON, PO, NP 
nn" 
y 


Ra) 4 C7) DATA AVION" , n(j" , Hope , OU 1 JUL . no)" , nN' , 1" » HN! 
: A ETU 

25060 DATA "CHEVAL", NM UNS UN ONU UNS UN", 
NN", LE 5 Lis 

25060 DATA "FIN" 


Introduisons une PROCédure LECTURE, appelée 
au début de la boucle QUESTION. Pour le moment 
elle lit et imprime les noms (N$)jdes objets 
examinés. 


4% LECTURE 


26000 DEFine FROCedure LECTURE 

260.30 READ NS 

26100 CSIZE 5,1 : PRINT N$& : CSIZE 2,0 
26110 END DEFine LECTURE 


Les "O" et "N'" correspondant à chaque caracté- 
ristique sont lus dans IN$, à la place du INKEY$ 
dans la boucle QUESTION. 


90 READ INS$ 


Dans la PROCedure REPONSE, nous comparons le 
nom de l'objet examiné (N$), avec celui de 
l'objet qui a le meilleur résultat et choisi par 
notre expert (OB$(TS$)). En cas d'égalité 
"CORRECT" est affiché. 


14020 IF ORE(TSL)=N#E THEN 

14030 CSIZE S,1:FRINT \'CORRECTE'N\:CSIZE 2 
0 

14040 NEXT QUESTION 

14050 END IF 


Dans la PROCedure CORRECTION nous comparons 
le nom de l'objet examiné (N$) avec celui de 
tous les objets connus de notre expert. La 
meilleure façon pour le faire est d'insérer une 
comparaison dans la boucle qui fixe CR% à N 
lorsqu'il y a égalité. Le INKEY$ d'origine et 
les tests de validation doivent être supprimés. 
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17028 LF QRS# CN) eæeNS$ THEN CK#mN 
17080 REMark ANNULÉE 
17060 KREMark  ANNULEE 


Une fois ceci fait, vous pouvez vous reposer ou 
prendre une tasse de café pendant que votre 
expert travaille dur! 


CA TOURNE 


À présent le programme se terminera lorsque 
tous les objets auront été examinés une fois, ce 
qui est insuffisant comme vous savez pour 
construire les règles correctes. On forcera la 
répétition en testant le message "FIN", et en 
faisant un RESTORE. Remarquez que nous devons 
lire à nouveau N$ après le RESTORE. 


26040 IF N&="FIN" THEN 
MOUSQ RESTORE 27000 
26080 READ N$ 

26090 END IF 


Pour voir comment marche notre expert et 
pouvoir le féliciter, il faut garder la trace du 
nombre de cycles de comparaisons effectués, et 
savoir quand il a réussi. Deux nouvelles 
variables sont définies. CY®% est le nombre de 
cycles de comparaisons effectués, et SUS% le 
nombre de cycles lorsque le résultat est acquis. 
SUS est incrémenté dans la PROCedure REPONSE, et 
réinitialisé au moment du RESTORE, puis comparé 
au nombre d'objets correctement identifiés (5). 
Un affichage du cycle courant dans la fenêtre #0 
en bas à gauche permet de suivre l'avancement. 
Un message "REGLES APPRISES" apparaît lorsque 
SU% atteint 5. 


5 CYA=i: SUYX=O 

14040  SUX=SU%+1: NEXT QUESTION 

26010 IF SU%=5 THEN STOP 

26020 ATH#O,0,0:CS1ZE #O,3,1 : PRINT #O,CY%:C 
SIZE #0,0,0 
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26070 SU 0 


En regardant cette version automatisée, vous 
verrez qu'il faut six cycles de DATA pour 
reconnaître les cinq moyens de transport. Si on 
permute VELO et CHEVAL, il n'en faut que quatre. 
Si AVION et VELO sont permutés, on arrive aussi 
à quatre. Par contre si on échange VELO et AUTO 


il en faut douze! Il est intéressant de 
remarquer que les règles finales changent dans 
chaque cas. On vous laissera essayer un ordre 


aléatoire pour les DATAS, et étendre le domaine 
de connaissance. 


LA CONSERVATION DE NOTRE EXPERT. 


Notre expert a une bonne expérience, il 
serait dommage de le perdre en coupant le 
courant. Comme les règles sont conservées en 
tableaux, vous pourrez facilement écrire une 
routine pour les sauvegarder et les recharger 
pour une nouvelle utilisation. 


7 


Des comparaisons 
approchées 


Les ordinateurs ne sont pas complètement 
logiques, et notre mémoire est beaucoup moins 
fiable, ce qui nous donne des soucis lorsque 
nous cherchons à retrouver des informations sur 
un sujet donné. L'anglais par exemple est une 
langue qui présente de multiples formes en 
particulier pour l'orthographe des mots. Une 
façon d'envisager le problème est de 
s'intéresser aux consonances des mots plutôt 
qu'à leur orthographe par l'utilisation d'un 
codage, ce qui a été fait pour la première fois 
pour le recensement de 1890 aux USA. Cette 
méthode donne un code voisin pour les mots qui 
ont une consonance proche. 


Les règles de codage sont les suivantes: 


1) Toujours conserver la première lettre en tête 
du code, puis à partir de la seconde: 

2) Ignorer les voyelles a,e,i,o,u. 

3) Ignorer les lettres w,y,q,h. 

4) Ignorer les marques de ponctuation. 

5) Coder les autres lettres avec les valeurs 1 à 
6: 
b,f,p,v 
CrJrdrKrSrXr2Z 
d,t 


on U1 B& Y N — 


L 
m,n 
La = 
6) Lorsque deux lettres adjacentes ont le même 
code, ne garder que le premier. 


7) Si la longeur du code est supérieure à 4, ne 
garder que quatre caractères. 
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8) Si la longueur du code est inférieure à 4, 
compléter à gauche par des zéros. 


Donnons quelques exemples: 


BRAIN - B650: B est gardé, R vaut 6, A et I 
sont sautés, N vaut 5, et un 0 est ajouté. 


CUNNINGHAM - C552: C est gardé, U est sauté, NN 
donne 5, I est sauté, N vaut 5, G vaut 2, H et À 
sont sautés, M vaut 5. Le résultat C5525 est 
tronqué à 4 caractères. 


GORE - G600: G est conservé, O est sauté, R 
vaut 6, E est sauté, deux 0 sont ajoutés. 


IRELAND - 1645: I est gardé, R vaut 6, E sauté, 
L vaut 4, À est sauté, D vaut 5 .Le résultat 
16453 est tronqué à 4 caractères. 


SCOT - S300: S est gardé, C est sauté car il a 
la même valeur que S, O est sauté, T vaut 3, et 
un 0 est ajouté. 


Si votre nom ne contient que des voyelles et des 
lettres rejetèes, votre code sera court! 


HEYVHOE -  H0000: H est retenu, les autres 
lettres rejetées, quatre 0 sont ajoutés. 


ROUTINE DE CODAGE. 


Ecrivons un petit programme qui permet de 
trouver le code d'un mot (Organigramme 7.1). 
Commençons par une routine d'initialisation qui 
restaure les DATA et appelle ECRAN pour la mise 
en place d'une série de fenêtres. 


LO  INITEALISAT TION 
30 DEFine FRüCedure INITIALISATION 
: RES TORE 


bons da 


INTITIALISATION 
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INPUT | cof = 
| men DT eETRE 
TM $= 
LETTRE ——— 


S " NTE 


RECHERCHE 
DE LA 
i [CHAINE 


Organigramme 7.1: Méthode de codage. 


L'écran est divisé verticalement en deux 
fenêtres principales 1, et 2, puis O0 est 
réservée à la saisie, et 3 et 4 pour des 
libellés. (voir Figure 7.1). 


11000 DEFine FROCedure ECRAN 
11010 MODE 4 

11020  WINDOW 42,230, 186,26, 40 
11030 BORDER #2,2,6 

11040  CSIZE 2,1,0 

11050 CLS #2 
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pl eo & eo »_ 
QE TTTTDDrTS É vrrs ES -| 
£LTTTNOMMMÉ É UUTS £ Ml 
AWtoonoonnns NN nuuns RE O1 
Dom Dg we vw 
SMMMAZLLS ss mmmeE £ ma 
Winmoréenzs Snomm, [nl 
[ua] 3 mm pr dr À — LME 3 Ci 
A/S 6 7) a me ol 
MES Se F Sol 
& n 5 un s F 
Fa +3 Es CA = 1} 
"m 
o nu. Pr 
7 pr: l | 
ñ Ÿ | 
d 8 À 
œ ® | 
ñ un A 
DDDDDDD9 DrD£g 2 Le 
BEBETOMMD BERT + 
mem £ennns mme S — 
= el | 
ñ $ Le 
7 
1 


Figure 7.1: Comparaisons approchées. 
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11060  WINDOW #2,220, 186,26, 30 
11070 BORDER #2,2,6 

11080  CSIZE 2,1,0 

11090  FAPER #1,5 

11100 INK #1,0 

11110 CLS #1 

11120 BORDER #0,1,4 

11130  CSIZE #0,2,0 

11140 CLS #0 

11150 OPEN #3,SCR_230X14A257X16 
11160 OPEN #4,S8CR_230X14426X16 
11170 BORDER #3,1,4 

11180  HORDER #4,1,4 

11900  CSIZE #3,2,0 

11200  CSIZE #4,2,0 

11210 PAPER #3,0 

11210 PAPER #4,0 

11230 INK H3,7 

11240 INK #4,7 

11250 CLS #3 

11260 CLS #4 


11270 PRINT #3,"NOM"," CODE" 
11280 PRINT #4,"  COg";" MyMIN&(1 TO N)'"; 


11290 END DEFine ECRAN 


La PROCedure CODES lit chaque groupe de 
lettres retenues dans un élément de tableau, 
SC$(N). Remarquez que les groupes sont rangés 
dans l'ordre de la valeur correspondante du 
code. 


12000 DEFine FRKOCedure CODES 
12010 DIM SC%(é6,7) 
. DATA "EFPVI, CCGJKSXZ", DT, PLU CMNU, UK 


12030 FOR Neil TO 6 
12040 READ SC% (N) 
12080 END FOR M 

12060 END DEFine CODES 


Nous pouvons maintenant saisir un mot à 
coder, IN$. (On se protège d'une chaîne vide, 
et si vous voulez effectuer la conversion à 
partir des minuscules vous pouvez utiliser la 
procedure SAISIS$ du chapitre 2.) 


100 REFeat BOUCLE 
110 AT HO,1,X 2 INFUT HO ,INEss IF INE=""T 
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HEN  HOUCLE 
LS END KEFéeat BOUCLE 


Comme nous allons utiliser en différents 
endroits ce codage, nous allons en faire une 
FONCTION nommée COMPILE$. Ceci permettra d'affi- 
cher simplement le résultat. 


120 AT #0,20,% : PRINT #0, COMFILES CIN#) X\ 


Pour commencer, prenons le premier caractère de 
IN$ selon la règle 1. 


15000 DEFine FUNCtion COMFILES  CINS#) 

18010 TMBEINS C1) 5 CObeTMS »: CONVERSION 

Pour coder chaque lettre il faut comparer TM$ à 
chacune des lettres de chaque groupe SC$(N). 
Pour comparer chaque lettre d'un groupe, il 
faudra, six fois de suite, fixer la chaîne à 
rechercher SE%, (code courant du groupe), et 
utiliser une instruction INSTR qui compare 
chaque lettre du groupe à TM$. 


16000 DEFine FRKOQCedure CONVERSITON 
16010 LOCal F 

L60 20 FOR Fæl TO 6 

LEO SEHeSCS CF) 

16040 SFeTMS INSTR SES 


Après la comparaison ci-dessus, il faut savoir 
si il y a eu égalité avec une lettre d'un 
groupe, et si oui quel groupe. Si on ne trouve 
pas d'égalité, SP% est mis à 0. Dans le cas 
contraire SP% est initialisé à P, qui donne la 
valeur du groupe; on transforme P en chaîne, 
TM$ qui remplace notre chaîne temporaire 
précédente. 


16050 IF SF4sO THEN TM&æf 5 RETURN 


Si aucune égalité n'a été trouvée dans ce 
groupe, il faut passer au suivant. 


16060 END FOR F 
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Si aucune égalité n'a été trouvée dans aucun des 
groupes, TM$ doit contenir un caractère ignore, 
et on le remet à vide. 


16070 TMgæU 
16080 END DEFine CONVERSTON 


I1 faut ensuite comparer tour à tour les 
autres lettres du mot, 2 TO LEN(IN$), et 
utiliser une chaîne temporaire TM$ égale à la 
lettre à coder. 


15080 FOR Ne TO LENCIN#) 

15040 TM$&=TNS 

15050 CONVERS TON 

On ajoute le nouveau caractère TM$ à la 


chaîne-code précédente CO$, et on renvoie CO$ 
lorsque tous les caractères de IN$ ont été 
examinés. 


15090 COHeCOSRTMS 
15110 END FOR N 

15140 FRINT #2, 

15150 RETurn C0$% 


15160 END DEFine COMFILES 


Le code final sera affiché en bas de 
l'écran, à côté de la saisie, mais il serait 
instructif d'examiner comment on en arrive là. 
En ajoutant la ligne suivante ,la routine 
COMPILE$, donnera un affichage détaillé dans la 
fenêtre de gauche, au fur et à mesure de 
l'avancement. 


15100 FRINT #2," ":CO$,,IN&(I TO N) 


En entrant STEVEN on obtient: 


co$ IN$(1 TO N) 


S3 ST 
S3 STE 
S31 STEV 


S31 STEVE 
S315 STEVEN 
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De même pour BRAIN et CUNNIGHAM: 


cof$ IN$(1 TO N) 
B6 BR 

B6 BRA 

B6 BRAI 

B65 BRAIN 

C CU 

C5 CUN 

C55 CUNN 

C55 CUNNI 
C555 CUNNIN 
C5552 CUNNING 
CH552 CUNNINGH 
C5552 CUNNINGHA 


C55525 CUNNINGHAM 


Le code de BRAIN est trop court et doit être 
complété avec des 0, tandis que celui de 
CUNNINGHAM est trop long et on retrouve deux 
fois le même code après la lettre N. 


LA MISE AU POINT DES DETAILS 


Pour régler la question de la répétition de 
code pour deux lettres consécutives il faudra 
conserver la chaîne précédente temporaire, LT$. 
Pour initialiser LT$ il nous faut le code du 
premier caractère de IN$ pour le cas où un mot 
commence par deux lettres identiques. Dans la 
boucle il faudra comparer LT$ et TM$, s'il y a 
égalité il ne faudra pas concaténer TM$ à COf$. 
Par ailleurs il faut donner à LT$ la dernière 
valeur de TM$. 


19080 LTéeTMS 

19060 LFOTMSE SLT THEN 
19070 LT Se TMS 

15090 END IF 


Réglons maintenant le cas du code trop 
court. Après un test sur la longueur, on 
concatène 3 zéros et on tronque à la bonne 
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longueur (4 caractères). 


LS LEO IF LEN(CO#)<4 THEN COB&"OOOM x 
CO#=C0& C1 TO 4) 


Enfin si le code est trop long on le tronque 
à une longueur de 4. (Organigramme 7.2). 


SUBROUTINE DE COMPARAISON 


[mr CT Ge En RSR | 
| [comparAIsoN | 
DE LA 


[RETRO re 
1% CoM?A-, 


| 
| 
| 
| 
| 
IRAISON ; | 
| 


| RAISON | 


Less 


Organigramme 7.2: Les détails. 


15140 IF LEN(CO#) 4 THEN CO#&=CO&(C1 TO 4) 
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UTILISATION 


Nous avons maintenant une méthode fiable 
pour effectuer le codage et nous allons 
l'essayer. Lisons d'abord une série de noms 
placés en DATA, et rangeons-les dans NAS$(N). 
Notre liste d'essai contient 18 noms, mais un 
coup d'oeil dans l'annuaire du téléphone vous en 
fournira beaucoup plus si vous le désirez. 
Remarquez que le nombre de mots est mis dans 
NW%, et que cette PROCedure est appelée depuis 
INITIALISATION. 


10040 NQMS 

15000 DEFine FROCedure NQMS 

15010 LTBe NU NW4zx17 

LAC 0 DIM NA&(NWZ, Lé) # DIM NCS (NW, 16) 
15050 DATA "ARRKAHAN", MARRAHAMNS", MARRKAMS", 


"ADAMS", "ADDAMS", "ADAMSON", "ALAN" 
"ALLAN", "ALLEN" 

13040 DATA "ANTHANY!", "ANTHONY", MANTONV'", 
"ANTOBUS", "APPERLEY", "APPLEBEE", 
"APFLEBY", "APELEFORD" 


LEOSO FOR N&Q TO NW% 
15060 READ NAS (N) 
13070 END FOK MN 


13120 END DEFine NOMS 


L'idée principale consiste à comparer les 
codes avant d'afficher Les mots possibles. Nous 
avons besoin des codes de tous les noms en DATA, 
que nous plaçons dans un tableau de chaînes 
équivalent NC$(N). Ceci n'est pas difficile car 
nous utiliserons notre FONCtion COMPILES$ en lui 
passant NA$(Q) au lieu de INf. 


En lançant l'exécution, on voit la 
réalisation et l'affichage des codes de chaque 
donnée respectivement dans les fenêtres de 
gauche et de droite. Comme la présentation à 
droite n'est pas belle, arrangeons-la au moyen 
d'une fonction TABLES. Ceci donnera deux 
colonnes propres en ajoutant des espaces et en 
ne conservant que la première partie du 
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résultat. 
13100 FRINT TABLES (NA& (D), NC# (0) ) 


14000 DEFine FUNction TABLES (I1%,12%) 
14010 Tibelis & FILLS(C" ",16) 

14020 TEbemles & FILLS(" 1,68) 

14030 Ii$=l1$(1 TO 16) 

14040 Teé=12$(1 TQ 8) 

14050 RETURN !" OMRIISRI2$ 

14060 END DEFine TABLES 


NOM CODE 
ABRAHAM A165 
ABRAHAMS A165 
ABRAHAMS A165 
ABRAMS A165 
ADAM A350 
ADAMS A352 
ADDAMS A352 
ADAMSON A352 
ALAN A450 
ALLAN A450 
ALLEN A450 
ANTHANY A535 
ANTHONY A535 
ANTONY A535 
ANTROBUS A536 
APPERLEY A164 
APPLEBE A141 
APPLEBY A141 
APPLEFORD A141 


Il nous suffira de comparer le code du nom saisi 
avec les codes des DATAS. 


130 COMPARE 


17000 DEFine FKOCedure COMPARE 


17030 FOR NæeQ TO NWY 

17040 IF CO#=NCS# (CN) THEN PRINT #2 
, TABLES (NA CN), NC CN) ) 

17080 END FOK N 


17090 END DEFine COMPARE 
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Ceci affichera seulement les mots qui ont le 
même code. Si on entre par exemple: 


APPLEBEE A141 


la réponse sera: 


NOM CODE 
APPLEBEE A141 
APPLEBY A141 


APPLEFORD A141 


Bien que APPLEBE (un seul E) ne soit pas présent 
dans les DATAS, nous avons trouvé APPLEBEE, 
APPLEBY et APPLEFORD (la consonance finale à 
été éliminée). 


EGALITE PARTIELLE 


Remarquez que APPERLEY a été éliminé, bien 
que la consonnance soit proche. Il serait donc 
utile d'afficher des égalités partielles. 


Ceci est facilement réalisable en ajoutant 
une boucle FOR NEXT qui compare une partie 
décroissante (1 à M) de l'entrée à avec des 
longueurs décroissantes des codes mémorisés 
(Organigramme 7.3). 


17010 FOR Me4 TO 1 STEF 1 
17020 PRINT #42, \, "comparaison sur les "Ms 
"premiers caractères !"\ 


17040 IF CO$CI TO M)æNC# CN) C1 TQ M) 

THEN FRINT #2, TABLE# (NAS (CN), NC (CN) ) 
17060 FRINT #42, "appuyez sur une touche" 
17070 DUMMY ze INKÉEYS& (— 1) 
17080 END FOK M 


Si on essaie maintenant on peut voir toutes les 
possibilites: 


APPLEBEE A141 


Comparaison sur les 4 premiers caractères: 
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Organigramme 7.3: Egalité partielle. 


APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


Appuyez sur une touche 


Comparaison sur les 3 premiers caractères: 


APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


Appuyez sur une touche 
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Comparaison sur les 2 premiers caractères: 


ABRAHAM A165 
ABRAHAMS A165 
ABRAMS A165 
APPERLEY A164 
APPLEBEE A141 
APPLEBY A141 


APPLEFORD A141 
Appuyez sur une touche 


Comparaison sur les 1 premiers caractères: 


ABRAHAM A165 
ABRAHAMS A165 
ABRAHAMS A165 
ABRAMS A165 
ADAM A350 
ADAMS A352 
ADDAMS A352 
ADAMSON A352 
ALAN A450 
ALLAN A450 
ALLEN A450 
ANTHANY A535 
ANTHONY A535 
ANTONY A535 
ANTROBUS A536 


APPERLEY A164 
APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


Appuyez sur une touche 


125 


8 


La reconnaissance 
des formes 


Nous reconnaissons en général les objets 
avec nos sens, la vue, l'ouie, le goût et le 
toucher, tandis que notre ordinateur ne peut 
obtenir des informations que par le moyen du 
clavier. LL est cependant possible de 
construire des détecteurs qui peuvent être 
interfacés avec notre machine, pour lui donner 
une autre perception du monde extérieur, mais 
cela suppose beaucoup de connaissances et 
d'habileté en électronique et en mécanique. A 
défaut nous allons simuler l'action d'un lecteur 
optique pour illustrer la reconnaissance des 
formes. 


Pour commencer, imaginons trois formes 
simples, une ligne verticale, un carré et un 
triangle rectangle. 


Nous reconnaissons facilement ces formes en 
regardant sur une grille fictive s'il y a un 
point ou non pour chaque couple de coordonnées X 
et Y. 


Dans le cas de la ligne, on utilise une 
seule valeur de X et toutes celles de Y. Le 
carré est un peu plus compliqué, toutes les 
valeurs de X pour Y égale 1 ou 8, donnent un 
point, tandis que pour toutes celles de Y entre 
2 et 7 il y a un point pour X égale 1 et 8. 
Pour le triangle c'est plus compliqué, la pente 
est obtenue en incrémentant X chaque fois. 
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Y ligne carré triangle 
1 1 255 1 
2 1 129 3 
3 1 129 5 
4 1 129 9 
5 1 129 17 
6 1 129 33 
4 1 129 65 
8 1 255 255 


Tableau 8.1: Valeur décimale des formes 
décrites en binaire. 


Une façon évidente de décrire ces figures 
consisterait à représenter chaque point par un 
bit et calculer la valeur décimale de chaque 
rangée comme nous l'avons fait dans le chapitre 
sur les systèmes experts. (Tableau 8.1). De 
fait cette méthode est utilisée pour l'affichage 
des caractères à l'écran, leurs formats étant 
mémorisés de cette façon. La Figure 8.1 montre 
la construction de la lettre A. 


Figure 8.1: Dessin de la lecture A. 
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Il existe des machines (lecteurs optiques) 
capables de faire l'inverse et de lire une page 
imprimée en découpant l'espace selon une grille, 
et en mesurant la lumière réfléchie en des 
points particuliers. 


Elles vont prendre en compte une série de 
"Oui" ou "Non" pour chaque coordonnée, puis 
décoder le résultat et le comparer à des formes 
connues. La façon la plus simple de faire cette 
comparaison est de considérer chaque point comme 
un bit puis de remplacer chaque rangée par son 
équivalent décimal qui peut être comparé à une 
table de valeurs connues. Il y a cependant un 
inconvénient, il faut comparer tous les points 
de la grille, 64 ici. 


UN ELAGAGE. 


Une approche plus rapide s'appuie sur le 
fait que chaque caractère peut être reconnu en 
examinant un nombre de points critiques beaucoup 
plus petit. Par exemple, la Fiqure 8.2 donne 
l'arbre de décision qui permettra de reconnaître 
toutes les majuscules à partir de douze points 
seulement, de plus il n'est pas nécessaire d'en 
tester douze dans tous les cas. (Figure 8.3). 
Si vous suivez tous les branches, vous verrez 
que le nombre maximum est de 7 étapes, et que la 
plupart des lettres sont trouvées en moins de 5. 
(Tableau 8.2). C'est quand même plus rapide que 
d'en tester 64! 


Pour montrer le fonctionnement, nous allons 
simuler l'action de la tête de lecture au moyen 
d'une grille sur laquelle nous allons construire 
les caractères. 


La routine INITIALISATION fait le nettoyage 
initial pour préparer l'affichage. 
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Figure 8.2(a): Arbre de décision pour 
l'alphabet. 
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22 23 
5,7 > Es 
Y Y 
OO 
47 48 

Y 
4q 
36 
Ÿ N 
Y 
0 
Hz) 


19 20 21 
Y N 
28 27 
u @) €) 
29 45 46 
Y Y Y 
30 51 50 
N 53 Y 
51 
| : 
hd 
De De 
© 


Figure 8.2(b) 
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Figure 8.3: Points utilisés. 
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3 étapes : I D 

4 Lu : LJCGONW 

5 L : SAQRT F U espace 
6 : “POV Y H 

7 " : BMNEKX2Z 


Tableau 8.2: Nombre d'étapes pour la 
reconnaissance des caractères. 


10 INITIALISATION 


11000 DEFine FKOCedure ECKRAN 
L1010 MODE 4 

11020 FAFER © 

L1LOEO CLS 

11040 WINDOW #2, 470, 200 
11050 BORDER 42,5, 7 

11060 CSIZE Heu dy 0 

11070 CLS #2 

11080 WINDOW #1, 144, 200,516, lé 
11090 HORDER #1, 1,7 

11100 COSIZE #1, 1,0 

11110 FAFER #1, 

11120 INE #1, 0 

11150 CLS #1 

11140 HORDER #40, 10, 0 

11150 IN #0, 7 

11160 CLS HO 

11170 END DEFine ECKAN 


Le tableau de décision est décrit dans une 
suite de tables chaînées où NB est le nombre de 
branches, LE$(N) contient le nom des lettres, 
C1(N) la prochaine valeur de X à tester, C2(N) 
la prochaine valeur de Y, N(N) l'élément suivant 
dans le cas d'une réponse négative, et Y(N) 
l'élément suivant dans le cas d'une réponse 
positive. 


10020 TO Ha nl 8 FRINT #2, "CHARGEMENT DES 
DATAS" 

LOQHO ARBRE 

10040 CLS #2 


12000 DÉFine FRKOQCedure ARBRE 
LeO 10 RESTORE 
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12020 NES : DIM LES (NE) ,C1 (NE), C2 (NH) 
y NCNE) , Y (NE) 
12030 FOR Cæ1l TO NE 
12040 AT #2,15,12 3: PRINT #2,C 
12050 READ LES(C) : READ C1L(C) 
READ C2(C) : READ NC) 3 READ Y(C) 
12060 END FOR C 
12070 DATA 0,0,0,2,19 
12080 DATA 0,0,4,5, 10 
12090 DATA 0,2,1,4,9 
12100 DATA 0,4,0,5,8 
12110 DATA 0,2,0,6,7 
12120 DATA ".,0,0,0,0 
12150 DATA "6",0,0,0,0 
12140 DATA "J",0,0,0,0 
12150 DATA "I",0,0,0,0 
12160 DATA 0,4,5%,11,14 
12170 DATA 0,4,4,12, 13 
12180 DATA "C",0,0,0,0 
12190 DATA "6",0,0,0,0 
12200 DATA 0,4,6,10,15 
12210 DATA 0,1,%,17,16 
12220 DATA "A",0,0,0,0Q 
12230 DATA "0",0,0,0,0 
12240 DATA "0",0,0,0,0 
12280 DATA 0,4,0,40,29 
12260 DATA 0,4,5%,21,26 
12270 DATA 0,4,%,27,22 
12280 DATA 0,4,6,25,26 
12290 DATA 0,4,4,24,25 
12400 DATA "F",0,0,0,0 
12310 DATA "E",0,0,0,0 
12320 DATA "R",0,0,0,0 
Le so DATA "L,0,0,0,0 
12340 DATA "D",0,0,0, 0 
124640 DATA 0,4,6, 45,30 
12360 DATA 0,1,5,:31,44 
124370 DATA 0,4,2,2,39 
124380 DATA 0,0,4,55,56 
12390 DATA 0,2,0,.54,50 
2400 DATA "Xx",0,0,0, 0 
12410 DATA "2",0,0,0,0 
12420 DATA 0,5,1,:38,37 
12450 DATA "E",0,0,0,0 
12440 DATA "E",0,0,0,0 
12440 DATA 0,1,3440, 45 
12460 DATA 0,5,1,42,41 
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12470 DATA "M",0,0,0,0 
12480 DATA "N",0,0,0, 0 
Le490 DATA "H",0,0,0,0 
12400 DATA "W",0,0,0,0 
12910 DATA 0,2,0,46,51 
12920 DATA 0,0,4,47,50 
12940 DATA 0,1,3,48,49 
12940 DATA "Y",0,0,0,0 
12980 DATA "V",0,0,0,0 
12460 DATA "U",0,0,0,0 
12470 DATA 0,0,4,92, 53 
12380 DATA "T",0,0,0,0 
12590 DATA "EF, 0,0, 0, 0 
12600 END DEFine ARBRE 


Un tableau GRILLE 5 X 7 est défini pour 
contenir les points du caractère à produire 
(attention aux éléments nuls), et le curseur est 
placé en haut à gauche (X%=-0, Y3=0). 


10080 DIM GRILLE (4, 6) 
10060 XA=Q 5 YA=O 


Les fonctions des touches sont indiquées 
dans la partie gauche de l'écran et nous sommes 
prêts à utiliser la procédure EDITEUR pour 
dessiner notre caractère. 


#0) REFeat. CARACTERE 


40 PRINT #2, \'EARKRE ESFACEMENT FLACE 
UN FOINT" 

40 PRINT #2, "FL EFFACE UN FOINT" 

WIR) PRINT #2, \'Fe EFFACE L'ECRAN" 

40 PRINT #2, \'F& DECODE" 

70 EDITEUR 


90 END KEFeat CARACTERE 


Une représentation du contenu du tableau 
GRILLE, avec un curseur clignotant, est affichée 
dans la fenêtre de droite (#1) par 1'EDITEUR. 
Une boucle met à la couleur 2 (rouge) le pavé 
courant (X%,Y%), puis regarde si l'élément cor- 
respondant de GRILLE contient 1 (GRILLE(X®,Y®%) 
est alors vrai). Si on trouve 1, le pavé est mis 
à la couleur 0 (noir). Dans le cas contraire, le 
pavé est colorié en vert (0), pour éviter un ef- 
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fet de rémanence. Le clignotement dépend du 
délai de INKEY$(N), et la séquence se répète 
jusqu'à ce qu'on appuie sur une touche. 


15000 DEFine FROCedure EDITEUR 
LFQOTLO KEFeat LOOF 


15020 ELOCH 26,260, (XAX28), (YAX26),2 

LIOEO IF GRID(X #4: YA) THEN 

13040 AHLOCER 26,428, (X4X26), (YAX26) , © 
13050 ELSE 

13060 ELOQCK 26,20, (XAXEO) , (YAX2G) , À 
14070 END IF 

13080 be [NKREYS (55) 

15090 IF Aa" TMEN END KREFeat LOOF 


Lorsque l'on appuie sur une touche, le code 
de celle-ci est récupéré puis soumis à une série 
de tests. Les coordonnées sont mises à jour 
suivant les touches de direction, et l'appui sur 
la barre d'espacement colore le pavé en noir et 
l'élément correspondant du tableau GRILLE est 
mis à 1. En cas d'erreur la touche F1 efface la 
position courante, la remet en vert et place O0 
dans l'élément de GRILLE. Remarquez qu'il faut 
ajouter des tests pour éviter de sortir des 
limites de la grille. 


LALOO AxCODE (AS) 


LEA Q IF Awml9% AND X4:0 THEN X%=X 4) 4 
END KEFeat LOOF 

LL e0 IF 6x%200 AND XAS4 THEN X#4mX%4 1 3 
END KEFeat LOOF 

L'ELSO IF Am206 AND YVAs0 THEN YAeY el à 
END KEFeat LOOF 

LA LA4OQ IF Axglé AND YAsé THEN YAmY el 
END KEFeat LOOF 


13180 LFP Aei THEN GRILLE On YA) 
ELOCK 26,28, (XAX20), CYAXE) 40 
END KEPFeat  LCOF 

13160 IF Amie THEN GRILLE CXY 4 YA) 0 3 
RLOCE 26,420, (XAKX26) , CYAXE) , 4 
END KEFeat LOOF 


Si le dessin de votre caractère se termine 
par une déconfiture complète, la touche de 
fonction F2 efface toute la fenêtre 1, et 


réinitialise la GRILLE à 0. 
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13170 IF Ax2%é THEN 

13180 CLS #1 

13180 FOR CxQ TO 4 
13190 FOR MeQ TO 6 
134200 GRILLE CC, M) #0 
13210 END FOR M 

13220 END FOR C 

13240 END RKEFeat LOOF 

Lie sO END IF 


Enfin la touche de fonction F3 renvoie à la 
PROCedure LECTEUR qui décode le dessin ou bien 
le programme recommence l'analyse des touches. 


15460 IF Ax240 THEN RETurn 
134270 END KEFeat LOOF 
13280 END DEÉFine EDITEUR 


630 LECTEUR 


Dans la PROCedure LECTEUR, le dessin réalisé 
est comparé aux figures connues (Organigramme 
8.1). Le tableau de pointeurs AP, est 
initialisé à 1, de façon à commencer la 
recherche au début. Les coordonnées X et Y sont 
lues dans C1(AP%) et C2(AP%), et la dernière 
position LP$% prend la valeur du pointeur courant 
APS. La couleur du point PC pour ces 
coordonnées est déterminée par l'élément 
correspondant de GRILLE. Si celui-ci contient 
1, il y a un point et il faut prendre le 
pointeur ‘oui' Y(AP%). S'il ne contient pas 1, 
il faut prendre le pointeur ‘non’. Dans les 
deux cas il faut voir si l'élément pointé 
contient 0 (extrémité de la branche), ce qui 
indique qu'un caractère a été trouvé. La lettre 
LE$(LP%) est affichée dans la fenêtre #& O, 
jusqu'à ce que l'on appuie sur une autre touche, 
ce qui initialise un nouveau cycle. Tant qu'une 
valeur supérieure à 0 est trouvée,il y a un 
nouveau point sur la branche et le ‘programme 
recommence avec les nouvelles valeurs C1(AP%) et 
C2(AP%). Pour vous permettre de voir les points 
qui ont été testés,ces pavés sont coloriés en 
rouge. Les points marqués mais non testés 
restent en noir. 
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PO/NTEURS 
= 4 


Organigramme 8.1: PROCedure lecteur. 


14000 DEFine FROCedure LECTEUR 
14010  AFHæl 
14020 REFeat PIXEL. CHECK 
14030 X4=C1(AFX) à YsCR(APX) à LPYeAP% 
14040 FCOXSGRILLE (X4, Y4) 
14060 IF PCYX THEN AP=Y (AP%) à 
ELSE AFeN(APX) 


14080 IF AFX THEN 

14090 BLOCK 28,28, (X4K28), (YAX2E),2 

14100 END REFeat FIXEL. CHECK 

14110 END IF 

14120 CSIZE #0,%,1 + AT #0,6,0 : 
PRINT #0, "CARACTERE à "LES (LP%) 3 à 
CSIZE #0,0,0 

14130 PRINT #2,\\"APEUYEZ SUR UNE CLE" 
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Pour voir les branches de l'arbre qui sont 
parcourues, apportez les modifications suivan- 
tes. 


14140 SE=INEEYE (—1) 
14150 CLS HO s CLS #1 3 CLS HE 
141é0 END DEFine LECTEUR 


L'inconvénient de cette méthode rapide des 
points critiques, est que l'on obtiendra une 
erreur de comparaison dans le cas où la forme 
n'est pas prévue dans l'arbre. Les premiers 
lecteurs optiques ne supportaient qu'un seul 
type de caractères, mais actuellement non 
seulement ils acceptent des styles différents, 
mais encore ils apprennent par eux-mêmes les 
règles de reconnaissance au moyen d'un système 
expert interne. On leur apprend en leur 
montrant quelques pages de texte, tout en les 
rentrant au clavier. Cependant on est encore 
loin de pouvoir lire l'écriture manuscrite. 
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9 


Un professeur 
intelligent 


L'enseignement assisté par ordinateur (E.A. 
O) est un autre domaine où l'intelligence 
artificielle peut se montrer particulièrement 
utile. C'est très bien d'avoir un programme qui 
contrôle de façon aléatoire les connaissances 
d'un étudiant, mais ce n'est pas comme cela que 
travaillent les professeurs. Tout en posant des 
questions ils gardent un oeil sur les progrès 
des élèves et augmentent la difficulté des 
questions avec l'expérience, puis les 
interrogent plus précisement sur les types de 
problèmes pour lesquels ils rencontrent des 
difficultés. Par exemple, si un enfant subit un 
contrôle sur les quatre opérations, et que 
seules les réponses sur la division comportent 
des erreurs, il faudra pour être plus efficace 
lui poser plus de questions sur la division; 


Voyons comment on peut introduire cet aspect 
‘humain' dans un programme. 


QUESTIONS ET REPONSES 


Nous allons utiliser des nombres aléatoires 
pour la première question, l'addition par 
exemple. RND(0O TO 10) nous donnera des nombres 
entre 0 et 10. 


10 ECKAN 
20 KEPeat QUESTION 
40 AAsRND(Q TO 10) 


1e) EAsRND (Q TQ 10) 
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10000 DEFine FRKOCedure ECRAN 
10010 MODE 4 

10020 CLSHO :CLSHkHI : CLSHE 
100F0 END DEFine ECKAN 


L'ordinateur fait la somme, puis appelle la 
PROCedure VERIF. 


él) 


Ces EU 
Pan VERTF 


VERIF imprime la question, puis saisit dla 
réponse IP3. 


che VERIF 


Hi ; HA 3 CPL : 


FRINTS 6 
INPUT OIFX 


Votre réponse doit être contrôlée. Si c'est la 
bonne réponse, C%, on imprime "JUSTE", sinon 
"FAUX" suivi de la réponse, puis on pose la 
question suivante. 


1030 IF CX=IFX THEN 

1040 FRINT\"JUSTE" 

1050 ELSE FRINT\"FAUX, LA BONNE REFONSE ES 
T "5 C4 

1060 END IF 


1080 END DEFine VERIF 


280 END REPeat. QUESTION 


SI CE N'EST PAS UN NOMBRE? 


Un essai vous montrera que la machine se 
"plante" si vous rentrez une lettre à la place 
d'un chiffre, accidentellement ou non. Il 
serait bien plus agréable que le professeur 
refuse d'accepter autre chose qu'un nombre, 
aussi allons-nous utiliser une PROCedure de 
saisie au lieu du simple INPUT. Celle-ci saisit 
une chaîne IP$, plutôt qu'un nombre, regarde si 
elle est vide et boucle dans ce cas. Elle 
vérifie que le code de chaque caractère de la 
chaîne IP$(N) est numérique (codes de 42 à 56), 
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avant de la convertir en une simple variable 
IP%. 


1020 SAISIS 
2000 DEFine FRKOCedure SAÏSIS 
e INPUT IF 
IF IF#H="t THEN GSAISIS 
FOR Neil TO LENCIF#) 
IF CODE CIFÆ(N))<4% OR CODE (CIF (CN) 


+537 THEN 
FRINT "ENTREZ UN NOMBRE !! !Ls 
SAISIS 

“ END IF 

2080 END FOR N 

#00 IFARIPE 

2100 END DEFine SAISIS 


D'AUTRES OPERATIONS 


Les trois autres opérations peuvent être 
facilement traitées de la même façon en 
remplaçant le signe '+' par une chaîne SG$ que 
nous initialiserons dans chaque cas avec le bon 
opérateur. En même temps,comme RND(0 TO 10) est 
commun à tous les calculs, nous le mettrons dans 


une fonction appelée PICK qui retourne un 
nombre. 


1010 FRINT\A%:SG#; R%3; "="; 
3000 DEFine FuNction FICK 


3020 RETurn RND(O TO 10) 
30350 END DEFine FICF 


40 AA=PICK 

LT) HZ=PICK 

60 CASAZ+HEZ: SGE= "4" 
70 VERIF 

100 AZ=PFICK 


110. EX=PICK 
120 CZeA%-HY: SGé=n-n 


130 VERIF 
160 AZ=PICE 


170 HX=PICK 
180 CASALKEZ: SGE= UE 
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190 VERIF 

220 A'A=FICK 

RO) HA=FICE 

240 CLeAL/EH: SG#E="/" 
250 VERIF 


DIVISION PAR ZERO 


Ecrit ainsi, le programme se plante si B% 
vaut 0 et si le choix se porte sur la division. 
On peut l'éviter en ajoutant systématiquement 1 


ES 


a B%: 
TR) Huet CHA 


ELIMINATION DES DECIMALES 


Nous utilisons des variables entières pour 
avoir des nombres ronds, mais il est évident 


qu'une division peut donner un nombre 
fractionnaire, que l'on ne peut pas saisir 
correctement car IP% sera arrondi: 3/2 = 1.5. 


Mais le programme acceptera 1, 1.5, 1.9 et 
tout nombre entre 1 et 1.999. 


Pour éviter les décimales, il faut que A3% 
soit un multiple de B%. Nous calculons donc B% 
d'abord, et nous prenons A% égal à B% multiplié 
par un nombre aléatoire entre 0 et 10. 


HET CH 
AASRFICEXE 


MEMORISATION DU RESULTAT 


Maintenant que le contrôle marche bien il 
faut réfléchir à la façon de garder les 
résultats de l'élève. La méthode la plus simple 


est d'incrémenter une variable TR$, à chaque 
appel de la PROCedure saysrs,et une variable 
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résultat chaque fois que la réponse est bonne. 
10 ÉCRAN: TRAeQ 3 SCH=0 
1040 PRINT \'JUSTE" :SC4=604+1 
2090 IFPAzIPS: TRASTRA + 
On peut consulter les résultats avec la 
PROCedure SCORE appelée à la fin de VERIF. 
1070 SCORE 
4000 DEFine FROCedure SCQKE 


4010 FRINT UVOTRE RESULTAT EST "3S043"/ "3 TRY 
4020 END DEFine SCORE 


Si vous préférez le résultat en pourcentage 
modifiez ainsi la ligne 4010: 
4010 FRINT MVOUS AVEZ EU "y (SOX/TRA) KIOOpP! 4 
DE KEFONSES JUSTES" 


COMBIEN DE QUESTIONS ? 


Le programme pose successivement une 
question de chaque type, à l'infini. On peut 
s'arrêter en mettant le nombre de questions dans 
une variable NO%. 


10 ÉCRAN: TRAD 5 SC4æQ à NGee 


A chaque question NQ% est décrémenté de 1, 
quand il vaut O0 on s'arrête. (après quatre 
opérations de chaque type). 


2090 IPASIPÉ: TRASTR A +1: NOZEND 4-1 


3010 IF NO%=O THEN FRINT "32 QUESTIONS 
POSEES 
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SUIVI DE LA PROGRESSION. 


Si nous voulons orienter les questions selon 
la difficulté, il faut garder le résultat de 
chaque opération. I1 nous faut des variables 
séparées pour chaque type de question (AD% pour 
l'addition, SU% pour la soustraction, MU% pour 
la mutiplication, et DI% pour la division). Ces 
variables sont définies comme le huitième du 
nombre total de questions à poser, NQ%. 


10 ECRAN:TRA SO: SC L= 0: NOYEZLEs ADLENOZ/ EE: SUZENQ 
ASE MUAENOY/ Es DITXENOY/ HE 


Maintenant si la bonne réponse C% est la 
même que la vôtre, IP% un compteur IN% est mis à 
-1, "JUSTE" est affiché, et on sort. Sinon IN% 


est mis à 1, "FAUX" est affiché suivi de la 
bonne réponse. 

1040 FRINTA'IJUSTET": INA=- 1 

1050 ELSE FRINT\'"FAUX, LA BONNE KEFONSE ES 


T "sCZs INZ=Ï 


INS est ajouté au bon nombre d'opérations 
(AD%, SUS, MU% ou DI$) en sortant de VERIF, donc 
si la réponse est mauvaise IN$ augmente et 
inversement. 


70 VERIF 5 AD A=ADA+INX 
1:50 VERIF 3: GSUX=SUX+INX 
190 VERIF 3 MUXEMUX+INYX 
Te) VERIF 3: DIZXEDIX+INX 


Ajoutons un test pour voir si toutes les 
questions d'un type particulier ont reçu une 
bonne réponse (AD%-=--0, organigramme 9.1). Dans 
ce cas on n'en posera plus en sautant par-dessus 
ce type d'opération. 
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Organigramme 9.1: Un professeur intelligent. 


30 IF AD4+0 THEN 
80 END IF 
70 IF SU4+Q THEN 
1 40 END IF 
180 IF MU4+0 THEN 
FAnle END IF 
#10 IF DI4+0 THEN 
260 END IF 


Si les questions de chaque type ont reçu une 
bonne réponse, le programme s'arrête (AD3%=0, 
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270 LF AD A+SUY+MUYZ+DT 4x0 THEN FRINT 
"4 QUESTIONS DE CHAQUE TYPE JUSTES" 


Remarquez que l'on ne pose plus de question 
dans les domaines où il y a eu quatre réponses 
sans erreur. Si vous faites une erreur, AD% 
(etc.) sera incrémenté, il faudra donc plus de 
bonnes réponses pour que AD% atteigne 0. 


DEGRE DE DIFFICULTE 


Comment rendre les questions plus faciles ou 
plus difficiles selon les réponses, c'est-à-dire 
modifier les valeurs de ADS, SUS, MUS%, DI%? 
Jusqu'à présent les valeurs de A% et B% sont 
comprises entre 0 et 10; nous allons modifier 
ces nombres pour obtenir des valeurs plus fortes 
si les réponses sont bonnes et inversement. En 
même temps on s'assure que les valeurs produites 
ne soient pas négatives quand les réponses sont 
particulièrement mauvaises. 


Modifions tout d'abord la FONCtion PICK de 
façon à ce que le compteur X% contienne le 
nombre de questions de chaque type à poser. 


40 Ass T CK CAD 4) 
IR) He LT CE CAD) 
100 As TCE (SU) 
110 EE ICE (SU) 
Léo Ass FUI CES CM) 
170 Hs ICE (MU ) 


ne C) 


FTe) 


F000 DEFine FuNction FICE(X%) 


Le cas le plus défavorable est celui où 
toutes les réponses sont fausses dans le dernier 
groupe. Dans ce cas il y aura seulement quatre 
questions dans les trois premiers et 32-(3*4)=20 
dans le dernier. De plus il faut se souvenir 
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que X% (c'est-à-dire AD%) commence à 4, le 
maximum de X% obtenu est donc de 20+4-24. 


Nous rajoutons donc une variable de 
pondération, WT% calculée en soustrayant trois 
fois le nombre de questions à poser dans chaque 
groupe (3*AD%) du nombre total des questions 
(NQ%), puis en rajoutant la valeur initiale de 
ADS. 


WTASNE A e CEXADY) + AD 


soit plus simplement: 
X TAN (EX AD A ) 


10 ÉCRAN: TR#mO à GCYmQ à NO 
ADAEeNQY/ RS à SUAENQL/TE 2 MUASNQY/ EE 
D L'AmNQY/ UE 8 WT ARNO CE KAD A) 


Nous remplaçons maintenant la constante 10 
par la différence entre WTS et X%, en modifiant 
le calcul dans la fonction PICK. 


FG20 RETurn RND(O TO (WTA-X%) ) 


s 


Initialisons WTS à 24 et X% à 4, de façon à 
obtenir des nombres entre 0 et 20. Dans le cas 
d'une bonne réponse X% est réduit à 3, et des 
nombres entre 0 et 21 seront choisis. Après 
quatre bonnes réponses, X% atteint 0 et ne 
changera pas pour ce type de question car la 
ligne sera sautée. Les dernières valeurs seront 
alors comprises entre 0 et 23. 


Si la première réponse est fausse, X% sera 
incrémenté de 1, et les valeurs choisies iront 
de 0 à 19. Dans le cas le plus défavorable, X% 
sera incrémenté 20 fois, pour atteindre 24 et 
WT$-X$ vaudra 0 pour A$% et B%. (A vous de 
résoudre ce problème particulier). 
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D'AUTRES TYPES DE QUESTIONS 


Bien que l'exemple ci-dessus ne traite que 
de problèmes arithmétiques, la même technique 
peut être utilisée sans difficulté particulière 
dans d'autres domaines, en utilisant des 
questions et des réponses composées de phrases. 


149 


10 


Des souris 
et des hommes 


Depuis des siècles les hommes sont fascinés 
par les labyrinthes, et les difficultés 
rencontrées pour trouver la sortie ont été 
abondamment décrites dans la mythologie. Plus 
récemment le sujet a été repris par la bande 
enthousiaste des ‘mousquetaires' qui envoient 
leur souris électronique se battre contre 
l'inconnu. Certains doivent penser que ce sont 
des jeux futiles, mais s'il s'agissait d'envoyer 
une personne contrôler le rayonnement après une 
explosion nucléaire, ou explorer la surface 
d'une planète étrangère, ils leur laisseraient 
volontiers la place. Un guidage direct à courte 
distance est possible, associé à une caméra 
vidéo, il peut permettre à un opérateur de 
trouver son chemin, mais les délais impliqués 
par les transmissions à grande distance posent 


des problèmes considérables. Cela ne vous 
avance pas à grand'chose de voir que votre 
véhicule d'exploration, qui a coûté des 


milliards, va tomber dans une crevasse de la 
planète Mars, si la chute a déjà eu lieu au 
moment où vous recevez l'image! Des machines 
autonomes et intelligentes auront donc toujours 
leur place. Un robot explorateur sera équipé de 
censeurs adaptés à son environnement et à son 
activité, il devra avoir un moteur fiable. Avec 
notre QL, nous pouvons seulement simuler 
quelques problèmes de cheminement. 


PLACONS LE DECOR 


Pour commencer initialisons un écran avec 
trois fenêtres. A droite (#1), nous montrons le 
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labyrinthe, à gauche (#2) nous affichons le 
contenu du cerveau de notre souris, et en bas 
(#0) nous avons l'heure et l'état. 


10 ECRAN 
10000 DEFine FROCedure ECKRAN 
10010 MODE 4 


10020 WINDOW #2,2350,200,25,15 
10070 EORDER #2,1,4 

10040 FAPER #2,7 

10050 INF #2,0 


10060  CSIZE #2,1,0 
10070  WINDOW #1,230,200,258,15 


10090 EURDER #1,1,4 
10100 PAFER #1,0 
10110 INK #1,7 


10120  CSIZE #1,1,0 
10130 CLS #1 


10140 PAFER #0,0 

10150 INK #0,0 

10160 CSIZE #0,2,0 

10170 CLS #Q 

10180 PAPER #0,7 | 

10190 PRINT #0," VU FAR LA SOURIS à 


10200 END DEFine ECKAN 


CONSTRUCTION DU LABYRINTHE 


11 faut construire le labyrinthe que nous 
allons explorer. Nous pourrions le générer au 
hasard, mais il est plus amusant de le dessiner 
soi-même, et cela rend plus faciles les essais 
pour éclaircir les situations confuses. Le 
labyrinthe est contenu dans un tableau de 37 sur 
33, et une copie des éléments est affichée dans 
la fenêtre #1. Ici chaque élément est 
représenté par un bloc de 6 X 6 pixels. Avant 
de partir montrons en vert (couleur 4) le centre 
du labyrinthe (18,16). La position de départ 
est le coin en haut à gauche (X3=8&, Y%=1). 


20 DESSIN 
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11000 DEFine FROCedure DESSIN 


11010 DIM MAZE (57,35 
11020 Kssl 5 Yu 
11050 HLOCE 6,6, (1846), (16XKé), 4 


Tant qu'une touche n'est pas enfoncée, on 
boucle en promenant un curseur tantôt vert 
(couleur 4), tantôt de la couleur de la case 
courante. 


11040  REFeat BOUCLE 
11050 BLOCH 6,6,X4%6,Y4#6,4 

11060 LOCK 6,6,X4%6,Y4*6,MAZE (XX, Y4) 
11070 AF=INÉEYE (2) 

11080 IF Aë="" THEN END REFeat BOUCLE 


Quand une touche est enfoncée, on teste les 
quatre touches de direction. Tant que l'on 
reste dans les limites du tableau, les coordon- 
nées X et Y sont mises à jour, et le curseur se 
déplace (sans laisser de trace). 


11090 A=CODE (A) 

11100 IF A=192 AND X%X:1 THEN X% 
=XA-1: END REFeat BOUCLE 

11130 IF A=200 AND XX235 THEN X 
A=X/A+tl: END REFeat EHOUCLE 

11160 IF A=208 AND Y:1 THEN Y* 
=YA—-1: END REPFeat ROUCLE 

11190 IF A=216 AND YX£31 THEN Y 


A=Y/A+TIi: END REPeat ROUCLE 


En dessinant le labyrinthe il faudra marquer 
le chemin à suivre par la souris. Nous le 
montrerons par des pavés blancs sur l'écran 
(couleur 6). Il sera ainsi facile de modifier 
le labyrinthe en changeant la couleur des pavés, 
avec la procédure CHEMIN qui contient un 
paramètre pour la couleur à utiliser. Attention 
on doit mettre à jour le dessin et l'affichage. 


12000 DEFine FRKOCedure CHEMIN (COULEUR) 
12010 MAZE (X7%, YA) “COULEUR 
12020 ELOCK 6,6,X%4%6,Y24%6, COULEUR 


12030 END DEFine CHEMIN 
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La touche CTRL associée à une touche de di- 
rection permet de créer des pavés blancs, tandis 
que ALT avec une touche de direction donne un 
pavé noir. 


11110 IF A=1935 AND XX>1 THEN CHEMIN © 
:XZ2=X4-1: END REFeat EOUCLE 

11120 IF A=194 AND XX5>1 THEN CHEMIN 6 
:X2=X/-1: END REFeat EHOUCLE 

11140 IF A=201 AND XX£35 THEN CHEMIN 
O:X2=X/+1: END REFeat ROUCLE 

11150 IF A=202 AND XXS3S5 THEN CHEMIN 
6: X4=X%+1:END REFeat EROUCLE 

11170 IF A=209 AND Yi THEN CHEMIN © 
:YA=Y A1: END REPFeat BOUCLE 

11180 IF A=210 AND YZ:1 THEN CHEMIN 6 
:YA=Y/-1: END KEFeat EOUCLE 

11200 IF A=217 AND YA£3S1 THEN CHEMIN 
O:Y=Y/+1:END REFeat ROUCLE 

11210 IF A=218 AND YX£31 THEN CHEMIN 


6: YA=Y +1: END REFeat BOUCLE 


Si votre dessin de labyrinthe se présente 
mal, SHIFT F1 permettra de relancer le program- 
me. 


Li2e0 IF 8=S54 THEN RUN 


Enfin SHIFT F2 fera sortir de la PROCedure 
DESSIN, et la souris commencera sa recherche. 
Remarquez que le labyrinthe ne doit répondre 
qu'à une condition: il doit y avoir un chemin 
quelconque entre le point de départ (X®%=1, Y%=1) 
et le centre. 


11250 IF A=2238 THEN  RETurn 
11240 END REFeat ROUCLE 
11250 END DEFine DESSIN 


TROUVER LE CHEMIN 


Nous pouvons maintenant envoyer la souris à 
la recherche du fromage au centre du labyrinthe. 
I1 faut lui donner une mémoire de la taille de 
la grille, une position de départ, et initiali- 


Des souris et des hommes 1:5:3 


ser l'heure avec SDATE, pour chronomètre ses 
progrès. 


0 REFeat RESTAKT 
40 DIM MEMORY C7) où Xl 5 Yaml 


80 SDATE 1985,0,0,0,0, 0 


Organigramme 10.1: Déplacement. 


L'organigramme 10.1 montre la boucle de 
déplacement de la souris. Affichons tout 
d'abord les cinq derniers caractères de DATES, 
c'est-à-dire les minutes et les secondes. Notez 
que l'on ne peut pas découper DATE$ lui-même, il 
faut d'abord le convertir en une variable 
temporaire Df. 


Pan REFeat MOUVEMENT 
ao D'E=DATEX 
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En DEæD#Æ Clé TO) 
100 AT HO,1é6,0 2: FRINT #0,D# 
LAC END REFeat MOUVEMENT 


Le point de départ est mis à vert (couleur 
4) dans MEMORY, et un curseur clignotant est 
affiché par la PROCedure TRACE à la position 
correspondante dans la fenêtre 42. Ceci 
nécessite trois paramètres, X et Y pour les 
coordonnées, et la couleur. 


110 MEMORY XX, VA) 4 
Lac TRACE KA, Ve 0 
150 TRACE X4,Y2, MEMORY (X2,Y%2) 


1000 DEFine FROCedure TRACE (X1,Y1i1,0) 
1010 ELOCE Hé,6.6, (Xlké), (Virké) ,C 
1080 END DEFine TRACE 


EST-CE GAGNÉ? 


On peut facilement voir si le centre a été 
atteint en testant les coordonnées (18,16). 
Quand le centre est atteint, si on y arrive, la 
durée du déplacement est affichée, et on a trois 
options: N permet de dessiner un nouveau laby- 
rinthe; C efface l'écran et permet un nouvel es- 
sai avec le même dessin, seul le tableau MEMORY 
est réinitialisé. Toute autre touche fait repar- 
tir sur le même labyrinthe sans effacer l'écran, 
ce qui permet de comparer les différents tra- 
jets. 


140 IF XZ4=18 AND YZ£=16 THEN CENTRE 


2000 DEFine PROCedure CENTRE 

2010 PRINT #O,"LE CENTRE EST ATTEINT "\" E 
N ":3D$(1 TO 2)53" MINUTES ET "3D#(4 TO 5)5" SE 
CONDES" 


2020 AS=INKEYS (-1) 

2030 IF A$="N" THEN RUN 

2040 IF A$="C" THEN CLS #2:END REFeat RE 
START 

2050 END REFeat RESTART 


2060 END DEFine CENTRE 
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2060 END DEFine CENTRE 


QUEL CHEMIN? 


La souris doit d'abord regarder où elle peut 
se déplacer. La position suivante à examiner 
est obtenue en additionnant aux coordonnées 
courantes celles du déplacement XD% et YDS. 
Pour commencer on initialisera XD% à 0 et YD% à 
1, de façon à ce que la souris essaye de 
descendre. 


MIA XD 4=0s YD' 4: 1 
150 IF MAZE(X4+XDX,Y4+YDY)=0 THEN STOF 
170 KA X A+ XD s VAR A+YDY 


Lancez le programme, dessinez une simple 
ligne verticale, et lâchez la souris en appuyant 
sur SHIFT F2. Vous la verrez descendre jusqu'à 
l'extrémité de la ligne et s'arrêter. fi: faut 
maintenant envisager ce qu'il faut faire lorsque 
la position suivante ne contient pas 0. 


LES COINS 


La première idée qui vous vient à l'esprit 
est de changer de direction si elle atteint un 
mur (inverser XD$% et YD% en les multipliant par 
-1), mais cela conduira la souris à se cogner 
sans fin sur le mur. Si elle est capable de 
prendre une nouvelle direction, elle peut 
explorer son environnement. Quatre fonctions 
sont définies pour les quatre directions 
possibles, gauche, droite, haut et bas. Chacune 
travaille de la même façon, en utilisant une 
PROCedure INCONNU pour examiner la position 
suivante. Jusqu'ici nous avons examiné le 
labyrinthe, sans conserver d'information en 
mémoire. Tant que l'on a pas d'information dans 
une position de MEMORY celle-ci reste à oO. 
Copions les informations dans MEMORY et faisons 
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une trace pour montrer ce qui a été examiné. Si 
l'endroit a déja été examiné INCONNU n'a aucun 
effet. Si chacune des quatre fonctions conduit 
à une position inconnue, on effectue le RETurn 
sans essayer d'autre possibilité. Ceci signifie 
que GAUCHE a priorité sur DROITE, qui a priorité 
sur HAUT, qui a priorité sur BAS. 


Remarquez que cela implique que la souris 
prendra toujours les mêmes décisions, et que XD% 
et YD%$ sont seulement mis à jour si la variable 
de couleur (CC) a la bonne valeur ce qui indique 
un chemin possible. (Organigramme 10.2). 


ou | TESTER AFFICHER 
CHEMIN RENSEIGNE - 
MENTS 


NON 


sd MAT 
DES VARIABLES 


DE DIRECTION 


Organigramme 10.2: Les coins. 


VERTE 


GAUCHE THEN KETurn © 
DROITE THEN KETurn 
HAUT THEN RETurnm 0 
BAS THEN RETurn © 
DEFine VERIF 
Fine FROCedure INCONNU XI, Y1) 
IF MEMORY CX1,Y1)=0 THEN 
MEMORY CAL, 1) eMAZE CX1, Y1) 
TRACE X1,Y1,MEMORY €X1, Y1) 
ét END IF 
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4080 END DEFine INCONNU 

3000 DEFine FuNction GAUCHE 

5010 INCONNU XZ-—1,Y% 

3020 IF MEMORY (XZ-1,Y%)=C0CC THEN XD%=-1:YD 
A=O:RETUrN —1 

5070 RETurn © 


5040 END DEFine GAUCHE 


6000 DEFine FuNction DROITE 

6010 INCONNU X%+1,Y% 

6020 IF MEMORY (XA+1,Y%)=CC THEN XD=i: YDYX 
eO:RETurn —1 

6QEQ RETurn © 


6040 END DEFine DROITE 


7000 DEFine FuNction HAUT 

7010 INCONNU XZ,Y 2-1 

7020 IF MEMORY (X2,Y2-1)=0CC THEN XD%=0Os: YDY% 
=-1:RETurn —1 

7050 RETurn © 


7040 END DEFine HAUT 


8000 DEFine FuNction RAS 
8010 INCONNU XX,Y24+1 


8020 IF MEMORY (X2,Y2+1)=CC THEN XD%=0: YD 
A=l:RETuEN —1 
8070 KETurn © 


8040 END DEFine HAS 


Si vous faites l'essai avec un tracé sinueux 
comme celui de la Figure 10.1 vous verrez que 
GAUCHE et DROITE sont testées la plupart du 
temps, le RETurn s'effectue en général avant 
d'atteindre HAUT et BAS. 


MOINS DE TESTS 


Actuellement GAUCHE, DROITE et HAUT sont 
essayés avant BAS, il serait plus efficace de 
réduire les tests et d'introduire un peu plus de 
logique. Quand XD% vaut 0, c'est-à-dire quand 
la souris se déplace vers le bas ou le haut, il 
suffit d'essayer GAUCHE ou DROITE. De même 
quand YD% vaut 0, on essayera HAUT et BAS. 
(Organigramme 10.3). 
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RETURN 


F, our 
+ 


Organigramme 10.3: Moins de tests. 


OS IF XD4x0 THEN 
IF GAUCHE THEN KETUrm © 
IF DROITE THEN KETurn © 
END IF 
IF YD4æ0 THEN 
IF HAUT THEN KETurn 0 
IF RAS THEN RETurn 0 


a CA) END IF 


LES BIFURCATIONS 


Notre souris se déplacera correctement dans 
les coins, mais quand elle atteindra une 
bifurcation, elle tournera toujours à gauche ou 
vers le haut si cela est possible, car ces 
directions sont prioritaires. Ce comportement 
rigide la conduira à tourner en rond, il serait 
préférable d'introduire un choix aléatoire entre 
deux directions possibles, de façon à ce que les 
priorités ne soient pas toujours les mêmes. Des 
variables LR% et UD% prennent de façon aléatoire 
les valeurs 1 et 2, et sont utilisées pour 
changer l'ordre des priorités. (Organigramme 
10.4). 
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Figure 10.1: Les Coins. 


160 Intelligence artificielle sur Sinclair QL 


NON 


NON 
NON 


Organigramme 10.4: Les bifurcations. 
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5000 DEFine FuNction VEKRIF 
CC=6 

IF XDZX=0 THEN 
FC LRA=RND (1 TO 2) 
FÜSO IF LRY=1l THEN 


3060 IF GAUCHE THEN RETurn © 
3070 IF DROITE THEN KETurn © 
F080 ELSE 

3090 IF DROITE THEN RETurn © 
#100 IF RAS THEN KETurn © 
3110 END IF 

3120 END IF 

31:50 IF YDZ=0 THEN 

3140 UD'A=RND C1 TQ 2%) 

3150 IF UD%=1 THEN 


IF HAUT THEN KETurn 0 
IF HAS THEN RKETurn © 


ELSE 
IF HAUT THEN KETurn © 
END IF 
END IF 
RETurn —1 


3250 END DEFine VERIF 


Essayez sur un labyrinthe contenant un carré 
(Figure 10.2), vous remarquerez que la souris ne 
suit plus toujours le même chemin. 


LES RETOURS EN ARRIERE 


Lorsque tous les essais sont négatifs, et 
lorsque la position suivante du labyrinthe vaut 
0 (indication d'un mur), la seule possibilité 
pour la souris est de revenir sur ses pas. Pour 
cela on multipliera XD$% et YD$% par -1. 
(Organigramme 10.5). 


150 INCONNU XZ+XD%,YA+YDY 
160 IF VERIF AND MAZE (X2+XD%,Y2+YDY%)=0 THE 
N XDZ=XD4x- 1: YDX=YD 4x1 


Elle fera maintenant demi-tour en atteignant 
un cul-de-sac, et continuera ses recherches 
jusqu'à ce qu'elle ait trouvé un cheminement 
possible. 
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Organigramme 10.5: Retour en arrière. 


OU NE VONT PAS LES SOURIS 


Il semble raisonnable de donner une plus 
grande priorité aux parties du labyrinthe qui 
n'ont pas encore été explorées. 


Jusqu'ici les endroits inexplorés sont 
marqués en blanc (couleur 6), et les endroits 
connus sont marqués en vert dans MEMORY. On 
peut s'arranger pour que, lorsque la souris 
revient sur ses pas, la trace soit rouge au lieu 
de vert. Ceci se fait facilement en ajoutant 
une boucle qui change la valeur de CC dans la 
routine VERIF. Comme le pas de la boucle est de 

2, le blanc est testé d'abord, puis le vert, 


puis le rouge en dernier ressort. Dès que 
l'égalité est trouvée, on exécute le RETurn! on a 
donc programme la priorité suivante: blanc > 


vert > rouge. 


3020 FOR Csé TO 2 STEF 2 
MIA ARTE) END FOR C 
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Figure 10.2 
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LA VITESSE DE CROISIERE 


Maintenant les progrès de la souris sont 
lents mais sûrs, il semble préférable de ne pas 
faire des investigations trop détaillées, si la 
voie semble libre devant, (couleur 6). 


En ajoutant la routine ci-dessous, la 
vitesse de la souris augmente énormément, car 
elle ne fait des tests que si cela est 
indispensable. (Figure 10.3). 


Les inconvénients de cette approche sont que 


les déplacements sont plus prévisibles, et 
qu'elle ira tout droit à une bifurcation lorsque 
c'est possible. En particulier certains 


cheminements ne seront pas trouvés sans revenir 
en arrière. Est-ce important? Cela dépend de 
la situation et de la complexité du labyrinthe, 
et donc de vous! 


3010 IF MEMORY (XX+XD2,Y%+YDY)zé6 THEN RETur 
n © 
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Figure 10.3: La vitesse de croisière. 
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11 


Utilisation 
intelligente 

du programme 
«archive » 


Le logiciel ARCHIVE, base de donnée fournie 
avec le QL est un outil puissant de manipulation 
de fichiers et d'obtention d'informations. 
C'est un bon exemple d'un programme intelligent 
de haute technicité, mais pour l'exploiter avec 
toutes ses possibilités, il est bon de savoir 
très clairement comment il fonctionne. 


De nombreux livres seront sans doute écrits 
sur ARCHIVE, mais ici, nous nous concentrerons 
sur deux aspects particuliers. Le premier est 
de savoir comment extraire les informations 
désirées avec précision et le second d'établir 
un mode d'emploi facile pour le premier venu. 


Commençons par charger ARCHIVE avec la 
commande : 


Lrunm mdvi.boot 


Une fois ceci fait, la commande CAT 
(CATalogue) d'ARCHIVE sur le microdrive 1 va 
permettre de visualiser le fichier inclus sur la 
cassette et destiné à servir d'exemple 
(PAYS _DBF). 


cat "mdvi_" 


(Notez que les qguillements sont indispensa- 
bles pour accéder au microdrive à partir 
d'ARCHIVE.) 


Pour faciliter les choses, nous allons donc 
utiliser ce fichier (PAYS DBF), afin d'explorer 
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le potentiel d'ARCHIVE. Nous avons donc besoin 
de le consulter: 


Lis "mdvl pays! 


Une fois ceci fait, AFFICHE, permettra de 
visualiser le premier enregistrement du fichier 
(voir la Figure 11.1). 


nom Logique : maître 
pays 5: AFGHANISTAN 
continent 5: ASIE 
capitale 5: EAROUL. 
langues : FACHTO,DAKI 
MOnTalet 5: AFGHANI 

paf 17: 

pib s 110 
Superficie 1 SE 


Figure 11.1: Premier enregistrement. 
affiche 


pour visualiser les autres enregistrements vous 
pouvez utiliser: 


affiche 
8 LU V 


et si vous voulez continuer à voir les 
enregistrements suivants, vous pouvez éviter de 
taper 'suiv' à chaque fois en appuyant sur 'F5', 
qui répète la dernière ligne qui a été entrée au 
clavier, pui ENTER. Bien que cette facilité 
soit d'un intérêt limité dans ce cas particu- 
lier, elle peut être très utile lorsqu'une lon- 
gue suite de commandes est nécessaire. 


Pour revenir sur vos pas, tapez: 


préc 


ou pour des déplacements plus importants: 
début 


ou 
fin 
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RECHERCHE D'UNE CORRESPONDANCE 


La commande la plus simple est TROUVE, qui 
recherche dans toutes les zones de l'enregistre- 
ment la chaîne correspondante à celle recher- 
chée. 


Exemple: 


trouve "europe!" 


affichera l'enregistrement ALBANIE, qui est le 
premier pays d'EUROPE rencontré dans le fichier. 


Il est très important de noter que "europe" 
a correspondu à "EUROPE' dans l'enregistrement; 
TROUVE ne fait en effet pas la différence entre 
les majuscules et les minuscules. 


Pour trouver le prochain enregistrement qui 
correspond à la chaîne recherchée (europe), il 
faut taper CONTINUE et non pas SUIV. 


Ainsi: 


continue 


affichera l'enregistrement correspondant à 
1l'AUTRICHE. 


Une des caractéristiques de TROUVE est que 
cette commande provoque une recherche sur 
n'importe quelle zone des enregistrements, 
indépendamment des caractères voisins. Cela 
peut parfois poser des problèmes: 


trouve asie! 


affiche d'abord AFGHANISTAN puis si L'on 


continue plusieurs fois (39), PAPOUASIE 
(Océanie) à cause de "ASIE" contenu dans 
PapouASIE. 


D'un côté, cela peut aussi être un avantage, 
si vous désirez trouver seulement une partie 
d'un enregistrement. La zone ‘“langues$', par 
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exemple, contient parfois plusieurs langues et 
si vous désirez n'en trouver qu'une seule TROUVE 
fonctionnera parfaitement: 

ainsi: 

trouve MANGLAIS" 


vous donnera AFRIQUE DU SUD où les trois langues 
sont "BANTOU, AFRICAANS, ANGLAIS", et non pas 
simplement "ANGLAIS". 


On pourrait aussi chercher les pays qui 
utilisent le Dollar ($) comme monnaie: 
TROUVE !"$" 


s'arrête d'abord sur AUSTRALIE (avec le $ 
australien). 


Il peut parfois présenter un avantage de 
tronquer la chaîne recherchée pour obtenir 
toutes les correspondances désirées. Si vous 
comparez: 


trouve l'anglais" 


avec 


trouve "angl" 


vous verrez que la deuxième solution augmente 
d'une façon significative les réponses. 


RECHERCHES SPECIFIQUES 


CHERCHE est une commande plus spécifique et 
plus performante qui demande qu'une condition 
particulière soit vérifiée. Elle n'agit que sur 
les zones spécifiées et fait la différence entre 
les majuscules et les minuscules. Ainsi: 


cherche continent$é="asie" 


ne s'arrête sur aucun enregistrement alors que: 
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“cherche continent "ASTE" 


s'arrête, en revanche: 


cherche continentée"AMERTQOUE" 


ne fonctionnera pas non plus du fait que 
"AMERIQUE' est toujours suivie de quelque chose, 
comme par exemple "DU NORD". 


Bien que vous ne puissiez pas chercher les 
pays qui utilisent le Dollar comme monnaie 
(puisque le signe $ est toujours suivi de 
quelque chose), vous pouvez aisément déterminer 
si un nombre est plus grand ou plus petit qu'un 
autre. Ainsi,bien que CHERCHE soit en théorie 
plus exact , il ne vous permet pas d'être aussi 
précis! 

Ainsi: 


cherche superficiel{2 


donne 
HONG KONG (1) 


et 


cherche superficiel 10000 


ne donne que 
U,R,S,5, (22402) 

Les chaînes peuvent être comparées comme les 
nombres: 


cherche paysé:"con 


donne 
CAMERQUN 
(le premier pays commençant par une suite de 


caractères supérieurs - dans l'ordre alphabéti- 
que - à la seule lettre spécifiée 'C'.) 
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Plusieurs conditions peuvent être combinées; 
par exemple, quels sont les pays d'Afrique dont 
le Français est la langue? 


cherche continents: "Afrique" et 
Lanqgueste "Fr ançgai sg" 


BENIN 

COMORES 

CONGO 

COTE D'IVOIRE 
GUINEE 

MALI 

REP. CENTRAFRICAINE 
REUNION 

TOGO 


Et pourquoi ne pas demander quels sont ceux 
qui utilisent le Franc CFA parmi ceux-là? La 
solution la plus évidente consiste à rajouter 
une condition supplémentaire à remplir: 


cherche  continentés "AFRIQUE" et. Langues$= 
"FRANCAIS" et monnaiet= !FRANC CFA" 


BENIN 

COMORES 

CONGO 

COTE D'IVOIRE 

REP. CENTRAFRICAINE 
TOGO 


ISOLEMENT DE CERTAINS ENREGISTREMENTS 


Un moyen plus efficace de traiter ce genre 
de problèmes est d'isoler un certain nombre 
d'enregistrement momentanément. Le nombre total 
d'enregistrements du fichier PAYS peut être 
visualisé ainsi: 


écris mombenr () 
qui donne 150. 


Vous pouvez isoler les pays d'Afrique de la 
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façon suivante: 
isole continent#z "AFRIQUE" 


maintenant 


écris nmombenr () 


qui donne seulement 49, du fait que ARCHIVE se 
comporte comme s'il n'y avait plus que ces 
enregistrements qui existaient désormais. 
Maintenant: 


cherche langues#$=!"FRANCAIS" 


cherchera les pays dont la langue est le 
Français et seulement en Afrique. Vous pourriez 
aussi procéder ainsi: 


isole langues !"!FRANCATS" 
écris nombenr () 


qui ne laisse plus que 9 pays dans le fichier. 
(Cette sélection peut aussi se faire en une seu- 
le fois.) 


METTRE LES CHOSES EN ORDRE 


Si vous regardez la liste des pays d'Afrique 
dont la langue est le Français ci-dessus, vous 
constaterez qu'ils sont en ordre alphabétique. 
Cela est entièrement fortuit et vient seulement 
du fait que le fichier original a été déjà or- 
donné. Cet ordre peut être cependant facilement 
modifié. 


Ainsi: 


trie superficiera 


les trie en ordre croissant en fonction de leur 
superficie: 


COMORES 
REUNION 
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TOGO 

BENIN 

GUINEE 

COTE D'IVOIRE 

CONGO 

REP. CENTRAFRICAINE 
MALI 


et 


trie capitaleé:sa 


les trie en ordre croissant selon leur capitale 
(avec ABIDJAN en COTE D'IVOIRE en tête de 
liste). 


Lequel de ISOLE ou CHERCHE est le plus rapi- 
de dépend vraiment de ce que vous recherchez. 


Pour restituer le fichier en entier tapez: 


restaure 


CORRESPONDANCES PARTIELLES 


Dans un des exemples précédents nous avons 
isolé les pays africains dont le Français est la 
langue - mais qu'en est-il de ceux qui ont le 
Français et une autre langue? Souvenez-vous que 
TROUVE n'est pas spécifique - pourquoi ne pas 
isoler les pays d'Afrique, comme précédemment, 
et TROUVEr "FRANCAIS". 


isole continent: "AFRIQUE" 
trouve FRANCAIS" 
continue 


UTILISATION DE PROCEDURES 


Jusqu'ici nous avons fait qu'effleurer le 
potentiel d'ARCHIVE en nous limitant aux 
commandes directes, qui n'ont fait que retrouver 
et afficher les enregistrements correspondants. 
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En utilisant l'éditeur nous pouvons adapter des 
PROCedures pour des tâches plus spécifiques. 
Pour entrer dans le mode éditeur tapez: 


édite 


et lorsque vous êtes invités à entrer un nom de 
procédure, tapez: 


conti 


puis les lignes suivantes qui effectuent un 
TROUVE automatique. 


proc conti 


ENTREE 
DE a $ 


Organigramme 11.1: PROC cont 1. 


La chaîne a$ est initialisée lors de la 
réponse à la question "quel continent?', et la 
recherche (TROUVE) s'effectue tant que la 
condition vu<> est vérifiée (voir l'organigramme 
TT En fait vu< vaut zéro lorsque le 
dernier TROUVE n'aboutit pas - il n'y a plus de 
correspondance entre la chaîne recherchée et les 
enregistrements. Notez que nous avons spécifié 
que seul les noms des pays devaient s'afficher à 
l'écran et non pas l'ensemble de l'enregistre- 
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ment, de sorte que seule l'information demandée 
apparaît. Une fois que la PROCedure a été ren- 
trée, vous pouvez taper ESC pour revenir à 
ARCHIVE et exécuter votre PROCedure en tapant 
simplement son nom: 


cor t | 


Lorsque vous êtes invités à rentrer un nom 
tapez 'asie' et aussitôt apparaît la liste des 
noms de pays en Asie - mais remarquez que l'URSS 
(dont une partie est en Asie) a aussi été 
sélectionnée. 

Pour restreindre la correspondance à "ASIE" 
vous pouvez CHERCHEr. La seule ligne qui doit 
être changée est: 


trouve a$ 


qui devient 


cherche continentéras 


Bien entendu, seules les majuscules 
provoqueront une correspondance, ce qui peut 
parfois être gênant. Pour contourner ceci, il 
suffit de convertir systématiquement toute 
entrée au clavier en majuscule, et une procédure 
que nous appelerons CONVERT. Appelez l'éditeur 
comme auparavant et tapez sur 'F3' et C pour 
créer une nouvelle PROCedure. 


proc convert 


La ligne d'entrée de CONTI doit maintenant être 
remplacée par : 


écris "Quel contient?'ssconvert 
pour revenir à la PROCedure CONTI, tapez sur ESC 


puis sur SHIFT et TABULATE, puis modifiez la 
ligne. 


Utilisation intelligente... 177 


UNE (INTER) FACE PLUS PLAISANTE 


Jusqu'ici vous avez tapé la chaîne à 
rechercher exactement comme elle apparaît dans 
l'enregistrement - mais ça serait plus agréable 
si vous pouviez être plus vague. Qui sait, 
vous en arriveriez peut-être à trouver que les 
ordinateurs valent la peine d'être pris en 
considération! 


Nous allons définir une nouvelle PROCedure 
appelée DIT, qui fournira un ‘habillage' de 
sorte que l'utilisateur n'aura pas besoin de se 
soucier de la cuisine interne d'ARCHIVE (voir 
organigramme 11.2). 


Une des caractéristiques principales est 
qu'elle utilise une recherche à l'aide de la 
fonction souschn () (sous-chaîne), pour trouver 
ce que vous cherchez, au lieu de l'accepter 
comme il est entré. 


Maintenant, lorsque vous utilisez DIT, vous 
êtes invités à entrer une chaîne qui peut être 
ce que vous voulez. La procédure vérifie si les 
mots comme ASIE, AFRIQUE, OCEANIE, et EUROPE 
sont présents. Si vous entrez n'importe quelle 
phrase contenant un de ces mots-clés décrivant 
des continents, une recherche est faite pour 
retrouver une correspondance adéquate. 


Ainsi: 


ASIE 
ASIATIQUE 
AFRIQUE 
AFRICAIN 
OCEANIE 
OCEANE 
EUROPE 
EUROPEEN 


seront tous acceptés 


Dans le cas de Ll'AMERIQUE une approche plus 
fine est utilisée étant donné que le fichier 
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SAISIS a $ 
QUESTION 


b $ = 
— 
RE 
PUESTIoN 
DU NORD ‘’' 
#D4 SUD" 
Ti reewrshu | 


KA AS: b J:'ANE - 
DU NORD RIQUE Du 
ARE 


Organigramme 11.2(a): PROC DIT. 
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Organigramme 11.2(b): 


PROC DIT (ii). 
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Organigramme 11.2(c): PROC cont 2. 


ENREGIS - 
TREMENT 


Organigramme 11.2(d): PROC Pays. 


PAYS la divise en trois secteurs qui doivent 
être spécifiés précisément. Notez que cela 
dépend de l'espace après AMERIQUE. 


Si le nom d'un continent n'est pas trouvé 
(b$='"""), la PROCedure PAYS vérifie qu'il ne 
s'agit pas d'un nom de pays en contrôlant votre 
entrée avec tous les pays du fichier. 


Si une correspondance est détectée, un 
certain nombre de variables sont extraites de 
l'enregistrement et présentées clairement dans 
du texte. Notez qu'apparaît aussi la densité de 
population dérivée des variables proposées, 
alors que cette information n'existe pas dans 
les enregistrements originaux. La boucle 
TANTQUE L (c'est-à-dire nombenr()) lit tous les 
enregistrements du fichier, de sorte que vous 
pouvez demander des informations sur plus d'un 
pays à la fois, mais la fonction clavier vous 
donne un bon moyen d'arrêter si vous ne pouvez 
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plus supporter le bruit des microdrives plus 
longtemps! Si aucune correspondance n'est 
détectée, un message apparaît et vous retournez 
à la procédure d'appel. 


Lorsque le nom d'un continent est détecté, 
la procédure CONT2 est appelée et sélectionne 
tous les pays de ce continent et affiche leur 
nom. On vous demande alors “sur quel pays vous 
désirez des informations", et la PROCedure PAYS 
est alors utilisée pour trouver ceci comme 
auparavant. La boucle TANTQUE R vous permet de 
faire d'autres recherches sur ce continent. 


L'Organigramme 11.2 donne un exemple de ce 
que vous pouvez voir sur votre écran. 


Cette approche est incontestablement plus 
plaisante, et vous pouvez voir que le travail le 
plus dur a dû être fait en avance et que la 
recherche avec une sous-chaîne ralentit 
inévitablement les choses. Vous pouvez 
maintenant peut-être améliorer ce programme afin 
de pouvoir consulter plusieurs zones en même 
temps. 
proc CONTI 
éponge 
écris M"OQUEL CONTINENT? "'ssconvert 
trouve a%$ 
tantque vu() 
écris pays#i" !s 
continue 
ftantque 
fproc 


proc contZ 

isole continenté“bé 
que cenombentr () 
écris 

écris "Il y a "sci" pays en "s;bé# 
écris 

tantque c 

si C/4ä4rent (C/4) 
écris 

fsi 

écris pays: !" ns 
BU V 
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que cc 
ftantque 
fproc 


proc convert 

saisis a$ 

que atemajus (at) 

fproc 

proc dit 

restaure 

mode 0,6 

que fictif] 

tantque fictif 

éponge 

écris 

écris "INFORMATIONS MONDIALES" 
écris 

écris "ENTREZ VOTRE QUESTION SVF" 
écris 

que R#z='"" 

écris 

écris "7? "4 

convert 

si A$='"'STOF" 

écris "A RIENTOT" 

que fictifé=clavier () 
mode 1,6 

restaure 

reviens 

fsi 

si souchn (AS, *AST") :%0 
que EH#z="ASITE" 

fsi 

si souchn(AS, MAFRI!") 0 
que b#$e"AFRIQUE" 

fi 

si souschn (AS, "OCEAN’") 0 
que H$="OCEANTE" 

fsi 

#i souschn(AS$, "EUROFE") #0 
que R$="'EUROFE" 

fsi 

si souschn(AS, "AMERIQUE ") 0 
écris 

écris "PRECISEZ" 

écris "AMERIQUE DU NORD" 


QL 
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écris "AMERIQUE DU SUD" 

écris "OU AMERIQUE CENTRALE" 

écris 

convert 

fsi 

si souschn(A$, "AMERIQUE DU NORD") +0 
que R#=!AMERIQUE DU NORD" 

fsi 

si souschn(A$, "AMERIQUE DU SUD") #0 
que R#='"'AMERIQUE DU SUD" 

fsi 

si souschn(A$, "AMERIQUE CENTRALE!) #0 
que R$=!"AMERIQUE CENTRALE" 

fsi 

si E$()"" 

écris bé 

cont2 

que ra] 

tantque r 

écris 

écris "Sur quel pays désirer-vous d'autres 
informations" 

convert 

écris 

pays 

écris "Vouler-vous avoir! 

écris "d'autres informations sur "sb$ 
convert 

#i souschn(as, "OU")=0 

que r#0 

fsi 

ftantque 

Sinon 

pays 

+si 

que fictifé=clavier () 

restaure 

ftantoque 

fproc 

proc pays 

début 

quelenmombentr () 

que FL=0 

tantque L 

si souschn(A$,pays$) 0 

que Fla- 1 

écris 
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encre 4 

écris pays#é:;" est en "icontinenté 

écris "a une population de "ipopsis" millions," 
écris "s'étend sur "ssuperficies "000 km2" 
écris "(une densité de "3 

écris chn(pop/(superficie/1000),0,2%)5"/ kmz)" 
écris "La capitale est "icapitalegs"," 

écris let la monnaie est le ‘": 

écris monnaie 


encre 7 
fai 

BU V 

que Le. { 


EE 


touche ©) CD" 


reviens 


fai 


Ftaut Que 


CR 


EC 


1 E 


papier 7 


res 
cit 
Ta Te 


js le ne comprends pas Ce QUE Vous voulez 
€ LL 
Fe 7 


papier 0 


ai 


pi 


OC 
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12 


Un vendeur 
expert 


Dans les chapitres précédents, nous avons 
traité les différents aspects de l'intelligence 


artificielle. Dans le présent chapitre, nous 
les avons regroupés dans un seul et unique 
programme. Un des premiers programmes 


"intelligents" fut ELIZA qui proposait une 
thérapie pseudo-psychiatrique; pour notre part 
nous avons résisté à la-tentation de continuer 
dans cette direction et avons opté pour la 
réalisation d'un "vendeur artificiel". 


Bien que les programmes du type ELIZA, qui 
tiennent véritablement une "conversation" avec 
leurs utilisateurs soient assez répandus, le 
programme suivant est assez original, en ce sens 
qu'il combine le traitement de la langue 
naturelle avec un système expert pour produire 
un résultat qui devrait à la fois comprendre vos 
demandes faites en langue naturelle et faire des 
suggestions qui tiennent compte de vos requêtes, 
des forces et faiblesses des différentes 
machines selon 20 critères distincts ainsi qu'un 
nombre de faits commerciaux comme le prix de 
revient et la marge. 


Assez de mots et de valeurs ont été inclus 
pour rendre le programme intéressant, mais vous 
pouvez bien sûr le modifier pour l'ajuster à vos 
utilisations; il suffit pour cela de modifier 
les lignes DATA. (Les données incluses dans le 
programme n'ont qu'une valeur démonstrative et 
nous ne saurions être tenus pour responsables 
des jugements totalement arbitraires émis par 
l'ordinateur.) 
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Le programme en lui-même suit les mêmes 
méthodes que celles employées précédemment dans 
ce livre et les fonctions des différentes 
PROCedures, FuNctions, variables et tableaux 
sont données dans le tableau 12.1. 


VARIABLES SIMPLES 


QP% Nr. de phrases (pour les questions) 
Q% Nr. de questions 

R% Nr. de règles 

OB% Nr. de compléments d'objet 
AJ% Nr. d'adjectifs 

AVS Nr. d'adverbes 

LI% Nr. d'opinions positives 
DL Nr. d'opinions négatives 
NJ% Nr. d'adjectifs négatifs 
NVS Nr. d'adverbes négatifs 

HMS Nr. de cher/bon marché 

BB% Balance de la banque 

Cox Nr. d'ordinateurs 

FE% Nr. de caractéristiques 

CTS Nr. de coûts 

CS% Nr. de suggestions de coûts 
EX% Nr. d'excuses 

HI% Nr. de suggestions chères 
LO% Nr. de suggestions bon marché 
LDS% Aime/n'aime pas 

TC3 Coût total 

tp$ Profit total 

OF% "Flag" compléments d'objet 
NPS% Négatif/positif 

M$ "Marker" 

OMS "Marker" du complément d'objet 
S1% Position de "et" 

S2% Position de "mais" 

CM% Position de la virgule 

SP% Position de la recherche 
ST Départ de la recherche 

PH% Sélection de la question 
IS% Position de la recherche 
RUS% Mise à jour des règles 

XX Cher/bon marché 

Xe Sélection de l'excuse 

PT$ Avertissement sur le budget 
TS% Coût du plus cher 


BS% Coût du moins cher 
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HI% 
LO$ 
SES 
SL®$ 


TABLEAUX 


0B%(0B%,10) 
AJ$(AJ%,6) 
NJ$(NJ%,7) 
AV$(AVS,6) 
NV$S(NVS,6) 
LI$(LIS,7) 
DL$(DL%,7) 
Q$(Q%,20) 
QP$(QP%,16) 
CR(Q%) 
PR(Q%) 
IC(Q%) 
IP(Q%) 

HM$ (HM3,20) 
R(R3%) 
CO$(COS,FE%) 
FE(CO%,FES%) 
C(CTS) 
csS$(Ccs$,100) 
EX$(EX%,100) 
HI$(HI%,100) 
LO$(LO%,100) 


Tableau 
PROCEDURES 
ECRAN 


TITRE 
INIT 


Coût du plus cher 

Coût du moins cher 

Plus/moins 

Coût de la phrase de sélection 


Compléments d'objet 
Adjectifs 

Adjectifs négatifs 
Adverbes 

Adverbes négatifs 
Aime 

N'aime pas 
Compléments d'objet des questions 
Phrases des questions 
Coût 

Profit 

Coût total 

Profit total 

Cher/bon marché 

Règle désirée 

Noms des ordinateurs 

Noms des caractéristiques 
Evaluation des coûts 
Suggestions des coûts 
Excuses 

Messages hauts 

Messages bas 


12.1(a): Variables et tableaux. 


Initialise les fenêtres 
Affiche le titre 
Initialise les DATASs 


SAISIS QUESTION Sélectionne la question (PHf) 


TROUV_et 
JOIN 1 


JOIN_2 
ET_ou MAIS 


OUI_PRESENT 


Recherche les "&'" dans PH$ 
Forme la question avec le 
complément d'objet à la fin 
Forme la question avec le 
complément d'objet au milieu 
Met les règles à jour selon le 
mot précédent le ET ou MAIS 
Met les règles à jour si OUI 
est présent dans votre phrase 
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NON_PRESENT 
PAS PRESENT 


Effectue la même tâche pour NON 
Met les règles à jour si PAS est 


présent 
DOUBLE NEGATION Recherche les doubles négations 
AIME Recherche les verbes positifs 
AIME _PAS Recherche les verbes négatifs 
OBJETS Recherche les compléments 
d'objet 
ADVERBES Recherche les adverbes positifs 
ADVERBES _ Recherche des adverbes négatifs 
NEGATIFS 
ADJECTIFS Recherche des adjectifs positifs 
ADJECTIFS_ Recherche des adjectifs négatifs 
NEGATIFS 


CHER BONMARCHE 
MISE À JOUR 
COUT. PROFIT 
DEPENSE 


Affiche les messages "CHERS" 
Remet les règles à jour 
Calcule les coûts et profits 
Compare avec la balance de la 
banque 

SAISIS COMPUTER Sélectionne l'ordinateur 


FONCTIONS 


TROUVE_ slash Recherche les "/" dans PHf 


TROUVE_ast Recherche les "*'" dans PH$ 
TROUVE_virg Recherche les "," dans CHAINES 
TROUVE ET Recherche les "ET" dans CHAINES 


TROUVE MAIS Recherche les MAIS'"' dans CHAINES 


Tableau 12.1(b): PROCedures et FuNctions. 


CONVERSATION 


Le programme vous propose de donner votre 
point de vue sur chacune des caractéristiques 
que peut posséder n'importe quel micro-ordina- 
nateur (les questions exactes sont SAISIeS au 
hasard dans une liste de QUESTIONS possibles). 
Notez que les mots-clés ou expressions sont in- 
sérés dans la phrase à l'endroit où cela est 
nécessaire. Ceci est effectué notamment grâce 
aux PROCedures TROUV_ slash, TROUV et, TROUV ast, 
JOIN_1 et JOIN 2. 
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L'écran est divisé en 5 fenêtres 
horizontales (Fiqure 12.1) qui sont affectées à 
des tâches différentes. La fenêtre # (du bas) 
est destinée à recevoir vos phrases, qui sont 
entrées en réponse à la question qui apparaît 
dans la petite fenêtre (43) juste au-dessus. La 
fenêtre 44 contient simplement une "publicité" 
pour "SANA ELECTRONIQUE", alors que la fenêtre 
du haut (42) montre une partie du “cerveau du 
vendeur", afin de montrer selon quelles règles 
il fonde son jugement. Cela vous donne plus de 
détails sur la motivation des vendeurs. 


Votre phrase est examinée en détails (selon 
une série de mots-clés) et le tableau R(R$) est 
mis à jour selon vos requêtes (vous pouvez 
d'ailleurs le voir en haut de l'écran). Notez 
que la plupart des mots-clés sont tronqués de 
sorte que n'importe quelle forme de ces mots 
peut être reconnue. Si vous êtes obsédé par un 
critère particulier (ex. un processeur 16 BITS) 
le vendeur ne vous prend pas tellement au 
sérieux étant donné qu'il s'agit 
vraisemblablement d'une “mode” venue d'on ne 
sait quel "Ordinateurs Magazine", de la semaine 
précédente! 


Le test le plus simple est de vérifier si 
OUI ou NON sont PRESENTS dans la phrase entrée; 
ceci a pour effet de soustraire ou d'ajouter 1 
au tableau des désirs (R(R#%)), et si vous 
mentionnez le nom de L'OBJET (ex: le 
GRAPHISME), ceci incrémente encore une fois de 
un le tableau des désirs. En outre, le fait 
d'utiliser des adjectifs ou des adverbes 
négatifs opère la fonction inverse. Le fait de 
séparer les mots en différents groupes vous per- 
met d'effectuer plus d'un changement à la fois 
dans le tableau. 


Ainsi: 
OUI ajoute 1 
OUI DU BASIC ajoute 2 


OUI LE BASIC EST ESSENTIEL ajoute 3 
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OUI UN BON BASIC EST ESSENTIEL ajoute 4 


Alors que: 


NON soustrait 1 
et 
PAS DE MEMOIRE soustrait 2 


En outre , les verbes sont regroupés en AIME 
et AIME PAS; les derniers inversent l'action du 
reste des mots. 


JE DETESTE LES MACRODRIVES soustrait 1 
NON_PRESENT et PAS PRESENT sont identifiés 


et la plupart des DOUBLES_NEGATIONS sont 
correctement interprétées. 


Ainsi: 
JE N'AIME PAS LE SON soustrait 2 
JE NE DETESTE PAS LE SON ajoute 2 


Si quelque chose apparaît au début de la 
phrase et est suivi par une virgule alors 
TROUVE_virg le supprime et il est ignoré. 

Ainsi: 
NON, JE NE VEUX PAS D'UN BON SON soustrait 3 

La seule exception, c'est lorsque ET_ou MAIS 
sont présents dans la phrase; dans ce cas, les 
deux parties de la phrase sont traitées 
indépendamment. 

Ainsi, si la question est: 
VOULEZ-VOUS DU GRAPHISME? 


et que la réponse est: 


NON, MAIS JE VEUX UN BON SON 


192 Intelligence artificielle sur Sinclair QL 


CONJUGUE 
ET AJOUTE 


VARIABLES 
Pre > ou! > oui > OUI |SOUSTRAIRE 
4 
NON Now 
ou! SUPPRIMER AJOUTER 
AVANT 
MRGULE Ke 
RU -Rur1 
LD x 1 


u! NP: NPs1 
LD:-1 


I INP: NP11 
un 


2 Rü-ve 
LDz-1 


RUzVva 
LD 1 


(1) 


Organigramme 12.1 (a) : un vendeur expert . 


Un vendeur expert 


RUzRU#LD 


OF=N 


Organigramme 12.1 (b) 


un vendeur expert . 
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MISE A JOUR 
DES 
AE&LES 


MISE À JOUR 
COUT EF 
PROFITS 


Organigramme 12.1 (c) : un vendeur expert . 
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L AJOUTER 


Organigramme 12.1 (d) : un vendeur expert . 
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MISE À JToyr 
TS +H] 


HASARD 


BAS’ F—— 


Organigramme 12.1 (e) : un vendeur expert. 


Un vendeur expert 197 


Alors le programme retranche 1 pour la 
partie sur le graphisme et ajoute 2 pour la 
partie sur le son. 


Si le programme ne trouve pas de mot-clé, il 
redemande une entrée en affichant le message 
suivant: 


PARDON, EXCUSEZ-MOI MAIS 


Le programme ne peut traiter qu'une seule 
chose à la fois, si vous demandez par exemple à 
la fois le GRAPHISME et le SON, il répondra: 


ATTENDEZ, UNE SEULE CHOSE À LA FOIS. 


Il est cependant possible de faire des 
commentaires sur un critère pour lequel on ne 
vous pose pas de question; dans ce cas, la mise 
à jour s'effectue quand même correctement (comme 
avec MAIS). 


DECISIONS 


Une fois que l'entrée a été décodée, nous 
évoluons le plus rapidement possible vers la 
PROCedure de mise à jour. En plus du tableau 
des désirs, il y en a deux autres qui s'y 
rattachent. Le premier est celui du COUT, qui 
donne des indications sur le coût d'un critère 
particulier, et le second est celui du PROFIT 
qui indique au vendeur quel appareil il doit 
particulièrement pousser. Les valeurs pour ces 
deux tableaux sont obtenues en multipliant le 
contenu du tableau par les facteurs contenus 
dans les lignes DATA (voir Tableau 12.2). 


Exemple: DE L'EXPANSIBILITE,2,9 


indique que le coût de l''EXPANSIBILITE (2) est 
assez bas, mais qu'il est assez profitable. 
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NO. CRITERES COUT PROFIT 
1 BON BASIC 5 2 
2 GRAPHISME 7 2 
3 SON 6 2 
4 BON CLAVIER GI 2 
5 TOUCHES F1,F2 1 5 
6 BEAUCOUP DE MEMOIRE 3 6 
7 UNE INTERFACE K7 2 2 
8 MACRODRIVES 2 4 
9 DISQUETTES 5 8 
10 BONS LOGICIELS 0 9 
11 PORT POUR CARTOUCHES 1 6 
12 PORTS JOYSTICKS 1 7 
13 ASSEMBLEUR 2 1 
14 PORT CENTRONICS 2 5 
15 PORT RS-232-C 2 6 
16 EXPANSIBILITE 2 9 
17 RESEAU LOCAL 3 4 
18 CPU 16 BITS 1 7 
19 MULTITACHE 5 5 
20 BON SERVICE 1 9 


Tableau 12.2: Coûts et profits des 
critères. 


Après chaque entrée, le vendeur examine 
les requêtes que vous avez formulées. En 
premier lieu il vérifie si vos exigences 
n'exèdent pas votre crédit, et si c'est le cas, 
affiche un certain nombre de remarques 
caustiques à ce propos: 


JE NE PENSE PAS QUE VOUS PUISSIEZ VOUS OFFRIR UN 
TEL LUXE 


Il regarde aussi si vos exigences et son 
profit correspondent, et si ce n'est pas le cas 
commence à se désintéresser de l'affaire en 
manifestant de la sorte: 

J'AI UN SANGLIER SUR LE FEU 
ON FERME À SIX HEURES 


Réciproquement,il sera des plus attentionnés 
en ce qui concerne les ordinateurs répondant à 
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vos exigences, la PROCedure SAISIS COMPUTER, 
fournit une liste des ordinateurs qui 
correspondent à ce que vous recherchez. La 
description est la suivante (Tableau 12.3): 


NOM T 2,3% Æ 6: 6: 7. 6: 9 T0 
IDM PC F. 8: 8.9, 6 € 8... 0 % 2 
PAPE TOBISHA 6 7 6 8 8 8 8 0 83 8 
SINCLEAR KL RO RE RE 
ACHRON ILLUSION 87 F6 GO 2 7.0. 5: :5 
BANANE IIE 3 5 2 -5 0 4 6 0 3 0 
SI ELITE 6. 6: 06 PR SO 7 
COLECTOVISION Di" 0 25, 5e 20 CS 65. Er 5) 
CANDY COMPUTER 4-6 A: 2" Q\ 2: + © "9 
COMMANDANT 64 2 D TE 16 Se 165. 2 
ATRIA 600GT + 8, «62 0,01 ES Où 7° 7 
NOM KT 12713: T4 85.76 17 T6 19720 
IDM PC HAT QC EE Un 97-98 
PAPE TOBISHA 0 0 CO. 6 6 89: 8, 9 9% ,:7 
SINCLEAR KL To h LG: EF, Au: ,9 À 
ACHRON ILLUSION 0: 10° 6.0 0 > 4, 109- © 2 
BANANE IIE 3 5 0 0 6 7 0 0 0 4 
SI ELITE 7 4 0 0 6 0 0 0 0 0 
COLECTOVISION F Ts 1, 6 <5,.0, 97, 08 
CANDY COMPUTER 6-7: 1@, 0.46: «3:70: 0: 01% 
COMMANDANT 64 6 7.:0%..00,2 -2 D, «0 0: -6 
ATRIA 600GT 7 T7 CQ:::0: 6: 6. 0: 0. 9. 5 


(Nom, valeur du critère 1, valeur du critère 2, 
valeur du critère 3, etc.) 


Tableau 12.3: Caractéristiques. 


La machine la meilleure sera toujours 
choisie en premier mais si cela est possible, au 
moins trois machines (avec de moins bonnes 
qualités) seront sélectionnées et c'est de ces 
trois machines que sortira le choix. Le plus 
cher ou le moins cher seront sélectionnés (au 
hasard), par exemple: 


SI VOUS VOULEZ UNE ROLLS-ROYCE JETEZ UN OEIL 
AU... 


et 
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SI VOUS VOULEZ DU PREMIER CHOIX PRENEZ-LE... 


Si une seule machine correspond, la réponse 
sera: 


UN CHOIX BON MARCHE SERAIT LE... 


&Q IF TROUVÉ 81 as THEN 
0 TRKOQUV et 

9Q END IF 

100 IF trouve ast THEN 
110 JOIN. 

120 ELSE 

LAO JOIN SE 

140 END IF 

LEO PRINT HS, PME ON 
160 Ê CHAINES 

170 Mo CHAINE 
150 
190 
#00 F 
ONF 
ee RUE 
RTE) 
240 


a C) 


SENT 
Æ NEGATTUN 


_NEGATIFS 
400 ADJECTIFS 
410 ADJECTIFS NÉGATIFS 
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450 CHER. HONMARCHE 

450 CLS #1 

440 IF MX£L THEN PRINT "FARDON, EXCUSEZ MOI., 
. MAIS" : NEXT QUESTION 

45Q IF OMASL THEN FRINT "ATTENDEZ — UNE SEULE 
CHOSE À LA FOIS" : NEXT QUESTION 

460 MISE_A_ JOUR 

470 COUT_FROFIT 

490 DEFENSE 

490 SAISIS COMPUTER 

OO (te fl 

510 1F GX>19 THEN O%=0 

Hn6 END REFeat QUESTION 

1000 DEFine FROCedure SAISIS QUESTION 

1010 FHZ=RND (O0 TO GF%) 


0 END DEEE SAISTS QUESTION 
9 DEF FUN ti on TROUVE _slash 


LS pe 1S 
AC END. En TROUVE _81ash 
4000 DEFine FROCedure TKOUV_ et 
OLO LR GE COX, Lot THEN 
AO FHEsmPHE CL TO IS A1) & MEST-CE" & FHECISY 
TO) 
40FO END IF 
4040 END DEFine TROUVE et 
HOOO DÉFine FuNction trouve _ast 
soie LS RU TNSTR FHE 
RETuUI nm IS 
END DÉFine trouve ast 
DEFine FKOCedure JOIN 1 
FE QE (DA) C2 TO LEN CG CHA) D) 8e OM OUR FH 
ei T0 LE) BEHE CIS Z+L TO) 
10 END DEFine JOIN 1 
DEFine FROCedure JOIN A 
7O1G Fe Ro OMR QE C4) CC TO LENCO (4) ) 
) 
700 END DEFine JOIN a 
000 pétae FUNGEionm TROUVE _virq 
GO LO CM, UOINSTR CHAINES 
EC 0) REtien CM% 
50 END DEFine TROUVE virg 
SOON DEFine FKOCedure ET ou MAIS 
YOLQ IF TROUVÉ et + TROUVE MATS THEN 
9020 IF CHAINE#(1 TO 4)æ" NON" THEN 
DOC FOCUS) #5 (CFE CA) KR) 5) JE 


202 Intelligence artificielle sur Sinclair 


DOA4N TE CHA) CCIE CO) RE) + CCR COX) KE) ) JE 
HOBO LE CA) se CIF CA) KE) — CPR COL) KE) ) JE 
O6 ELSE 

PO7O FC) EF CO) I 

900 LE CA) # CIC DA) KE) + (CR CO) KE) ) /E 
POPOQ TE (DA) & CCTF COX) RE) + CPR CCE) UE) ) ZE 
9100 END IF 

G1L1O END IF 

Q91SQ END DEFine ET _ou MAIS 

10000 DÉFine FuNetion TROUVE et 

LOO1O SLRUET INSTR CHAINEZÆ 

LOOSO KETurm S1% 

LO0%O END DEFine TROUVE et 

11000 DÉFine FUNetion TROUVE. MATS 
11010 S2Ye"MAIS" INSTR CHAINE 

LIOEO KET CA 

11030 


: TROQUVE MATS 

“ine FROCecdure QUI. FRESENT 
1 
Em (CAT NE SX 

eat QUI 

TA LLECSTY TO) 

GP OUT" INSTE T1 
LF Me THEN RETurn 
FL JAERUA 4 À 


GT SU Fe: 


END 


tt NÜN 
Lite Ti#(ST4 TO ) 
CNON'OINSTE TL 
PQ THEN RE Toucn 


NCIN 
NON FRESENT 
Fine FROCedur FAS PRESENT 


HAINE 


1400 FAS 


QL 
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14040 
14050 
14060 
14070 
14080 
14090 
L4L O0 
LL TLC 


TLFeT1LH(STX TO ) 
SF UFASU INSTR TI 
IF SPF#e0 THEN RET 
LD 1 

Ms | 

STAGE + 1 
NF NE 4 IL 

END KEFeat FAS 


LS 
LU 


14120 END DEFine FAS_FRESENT 
19000 DEFine FKOCedure DOUBLE. NEGATION 


LEO1CO 
15020 
LOC 
15040 
HRNTRRTe) 

TRISTE) 
15070 
15080 


LFONFH&O THEN KET 
IF ONFX MOD 2 THEN 
RU4e (CRU) es) JE 
LD 1 

ELSE 

RUZ=RU A+ 1 

LD 1 

END IF 


LUN 


15090 END DEFine DOURLE.NEGATION 
16000 DEFine FRKOCedure AIME 


Léo 


sn MA 
LÉO 
LÉO 
16070 
17000 DEFine FROCedure AIME. FAS 


17020 
LU O 
17040 


ST) 
17060 
17070 


FQR NæeQ TO LIX 
SPL. LE (ND INSTR 
LF OO GSFA 0 THEN 

LF CHAINES CSP 1) 
1 

END IF 

END FOR N 

END DEFine AIME 


FOR N«O TO DL% 
GFAæDLE (N)  INSTR 
IF SFXr0 THEN 
IF CHAINES (GF'%4 1) 


END IF 
END FOR N 
END DEFine AIME.F 


CHAINES 


me OMOTHEN LDZX&ARS (LD) 


CHA TNES 


mm UOU THEN LD D 4e 1 8 


SES) 


1000 DEFine FROCedture ORJETS 


1OTL0 
1900 
LRSTRINTE) 


18040 


+ (LD 


LEOËO 
18060 
18070 
19000 


FOR NæQ TO QE% 
GRECE CN) INSTR 
IF SF40 THEN 
LFOOCHAINES (SFA 1) 
HI) 7/8 8 OFxeN 2 M 
END IF 

END FOR N 

END DEFine QORIJETS 
DÉFine FRKOCedure 


CHA TNES 


mUOUOTHEN Rss CCRUPA NES) 
Al 5 OMAN + 


ADVERRES 
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19010 FOR No TO GUY 

SEX Co LNSTR CHAINES 

LSOSO IF ; THEN 

LYO4O TE CHAINE (GPY4—: 

OLD AR) ) VE Mal 

1900 END IF 

HART) END FOR N 

19070 ; me MADVEREES 

EARISIR IS JCediue ADVERBES. NEGATIFS 

#0) TI NV 

: =NVE CN) INSTE CHAINES 

LES #0 THEN 

LEO CHAINES CE US ef) ee OONTMEN LD sl De 2 
ï ns Mass 


em M THEN RU € (RUX% 


HE NÉGATIFS 
OC ue € "ADJEC TIFS 
F T ( J fi J'Y fu 
SFYs AJ CN) INSTF CHAINES 
IF SFA:O THEN 
ee LO40 TP CHAINES CSP 10 em OUOTMEN RU € CRU KE) 
+ CLOSE) ) JE 8 Mel 
el08O END IF 
1060 END FOR N 
e1070 END DEFine ADJECTIFS 
DÉFine FROCedure ADIECTIFS NEGATIFS 
FC Næo TO NT 
SF'éeNE (CN) INSTR CHAINE: 
LE OSF4:O THEN 
: LFOOCHAINES (SFA 1 et OU OTHEN LDelLD Axel à 
RUE (CRUA Ke CLD AE) ) JE Max 
ee END IF 
deé6Q END FOF ON 
Me070 END DEFinme ADJECTIFS NEGATIFS 
Fine FROCeduure CHER ERONMARCHE 
1O FOR N&Q TO HMX 
ee GPsHMSE (CN) INSTE CHAINE# 
IF SFA:O THEN 
040 IF CHAINES (SFA 1) st M THEN 
OO XX NM 
U6O IF XXASe THEN FRINT UEON MARCHE x (CAMEL 
OTTEUSRERF 1000,10:FAUSE 50 
asQ70 IF XX As THEN PRINT Q#(Q%4) C3 TODIMC'ES 
T FLUTOT CHERM:REERF 1000,10: FAUSE 50 
43080 END IF 
23090 END IF 


QL 
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IF à COR CODE) #3 1) + CUP HS) ) ES 
LE CCF 4) 8 CCI CO) ES ) + CCR (OF) *RUX 1) Ki) ) 


se se € CLP COR A) KE) + Ç CFE CO A) UT ) 5) ) 


4080 
40) 7 
né OE3 OC) LP (O2) = (CIF ne 1) € CRC CC) LI) KE D) /E 
e40%0 END IF 
mA OO CLE 4H 


A) te CAE) 2 JE 
LIKE) + CCR (0%) KEUPA) 5) 5 


BALLO FARINT HE, DESIRE 
4 leO FOR NæQ TO Fe 
LEO AT Hé, O,NKS 
4140 END FOR N 
eALEO FARINTAHS, "COUT" 

eHLOO FOR Neo TOI KA 

24170 AT He, IL NL s PMRINTH#E,  T( CN) 

4180 END FOR ON 

4190 PRINTHS, ÉROQFIT" 

O0 FOR Neo TO KA 

B4RlO AT Hé, 2, NS à FRINT#2, IF CN) 

de END FOR N 

#0 END DEFine MISE A. JOUR 

BSO0O DÉFine FROGedure COUT FROFIT 

26OLO FOR NæQ TO OKY% 

SORT ÇCTOARS) de CT CN) KE) ) SE 

BBOMO Tes (ÇCTEANKES) + (TE CN KE) ) ZE 

04 END FOR N 

2080 PAPER He,0 2 INE H2,7 #8 CSIZE 44, 1,0 
25060 FARINT He," COUT TOTAL MaTCza" FROEF 
IT TOTAL ER SOLDE BANQUE "x RH% 3 

28070 FAFER HE, 5 INE #2,0 : CSIZE #4,0,0 
23080 END Au COUT FROFIT 

26000 DEFine FRKÜCedure DEFENSE 

BHO IF TÉALOAKES THEN TX A&RNDCEXY) # INK #1, 
4 3 PRINT GEXÆCTX2A) # INK #1,0 

POOO IF TOALSERA/ CUA+L) THEN FTA&RND CCS) 4 
NE H1,2 3 PRINT GOS#(FTY4) 3 INE #1,0 

MO6OOQ TOC 

26040 TF0 

26060 END DEFine DEFENSE 

27000 DEFine FKOCedure SAISIS COMPUTER 


FRINTHE, FCN) 


206 Intelligence artificielle sur Sinclair QL 


87010 FOR Xe9 TO © STEF 1] 
27020 FO#£="" 
7080 FOR NO TO COX 
27040 IF CFE CN, CA) KE) — (RCA) KE) D) EX THEN FCE= 
FOY & N : MXN 
27050 END FOR N 
27060 IF LEN(FO#H)SS THEN END FOR X 
27070 TS4#0 
27080 ES4æ10 
27090 FOR CHzO TO LEN(FO#)-1 
27100 NCZ=FO#(CH+1) 
87110 IF CENCYH)HeTS%X THEN TSXeC(NCY) 2 MIZEeNC 
% 
27120 IF C(NCH)ESRSYX THEN RS%æC(NCY) 2 LOZeNC 
% 
27130 END FOR CH 
27140 IF MIXeLOYX THEN 
27150 FRINT #1,"VOTRE SEULE GFTION EST LE" 
27160 CSIZE #1,2,1 : PRINT HI," we Ms CCE CH 
TA)" méme Mr 2 CSIZE #1,2,0 
27170 KETurn 
27180 END IF 
27190 FIé#eCO#(HI%) 
27200 LAESCOE (LOY) 
27210 SEX=RND(i TO 2) 
27220 SL4=RND (2) 
27230 IF SEZX::? THEN 
27240 FRINT #1,HI#(SLYX) s CSIZE #1,2,1 ?: FRIN 
TOHL," xx MSIE" #kkkXklss CSIZE #1,2,0 
27250 ELSE 
27260 FRINT #1,LO#(SLY) s CSIZE #1,8,1 : FRIN 
T'OHL, "One Mi LAS; " kel s CSIZE H#1,2,0 
27270 END IF 
27280 END DEFine SAISIS COMPUTER 
88000 DEFine FROCedure ECKRAN 
28010 MODE 4 
28020 WINDOW #0,470,40,25,215 
28030 BORDER #O,5,4 
28040 FAFER #O,0 
29050 INK #0, 7 
28060 CSIZE #0,2,0 
28070 CLS #0 
28080 WINDOW #1,470,105,25,90 
28090 EORDER #1,5,4 
28100 PAPER #1,7 
28110 INK #1,0 
28120 CSIZE #1,2,0 
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BEL SO 
18 À 40 
26 1 50 
el 60 
“6170 INE #4, 

#10 CSIZE HER 
29190 CLS #4 


#2, CR . 


OPEN HE, SCOR 47 0X 0/2 X 19 
HORDE 45,5, 4 
Aion 2 7 


CSIZE + ps (a) 

CLS Hi 

28320 END DEFine ECKAN 

29000 DEFine FROCedure TITRE 

BYOLO FARINT Hé," ÆERFE SANA ELECTRONIQUE 

HHFEF": 

29080 END DEFine TITRE 

0000 DRrrpe FROCedur e INIT 

AQQLO REST 2 

000) 
HOCEO De 


+ 0080 LIiZæes 
0090 Dia 
FO1O0 NJ'4xe 
HOLIO NVYx 
120 HMAsE 
HO HO a 
#O140 COX 
30150 Phare 
E ETS 
HI 
LO'As 
(BY AE 
EX Ace 
Te 
TEE 0 
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DIM OECE (QOEHX, 10) 

DIM AJE(AJYZ, 6) 

DIM NJÆCNTY, 7) 

DIM AVE (AVS, 6) 

DIM NV (NV, 6) 

DIM LIÆ(LIY,7) 

DIM DL (DL, 7) 

DIM CE (OZ, 25) 

DIM QE CQFX, lé) 

DIM HMEÆ CHMX, 20) 

D LM FCFA) 

DIM CK(O%) 

DIM FA CCS) 

DIM IC(CG4) 

DIM IF (CG) 

DIM CO#(CCOYZ, 30) 

DIM FECCOYZ, n) 

DIM DF(COZ,FE") 

DIM CCCTA) 

DIM CSE(CSZ, 100) 

DIM EX#H(EXY, 100) 

DIM HI# (HIX, 100) 

DIM LOS (LOX, 100) 

30460 DATE "RASTE!", CGRAFHIQUE", SON", "CLAVIER 
"4 "FONCTION", "MEMOIRE", "HANDE", "MACRODRIVE" ," 

DISQUE" 

20470 DATA "LOGICIEL", "CARTRIDGE", "JOYSTICE", 

MASSEMEL", CCENTRONIC", RSI", MEXFAND" 

20480 DATA MRESEAUT, "16 BIT", "MULTITACHE" , "GE 

RVICE" 

20490 DATA MRONM, "EXCEL", SUPER", CMAGNIF',UGE 

NTAL'U,MVITE", “ESSENT" , "TOP" 

300 DATA "MAUVAIS", MCKRAIGN", FATAL, MLENT", 
FRIC", “PEU , "PIRE", "MOINDRE", "MOINS" 

DATA MREAL UT, OTRES", MSOUVENT'!,"NECESS" , "1 


DATA "JAMAIS", "FAS NECES", !"INUTIL" 

DATA MVEUX!, "AIME", MRÉQUIERRE" , "EXIGE" 
DATA "HAIS","'REFUSE", Mie "DETEST" 

us SC DATA "SUN EON RASIC",5,: “&DU GRAPHISME 
ya n  &DU SON", 6,2, "&UN RON ur 
AOS60 DATA MSDES TOUCHES F1, F2,,1,1,5, "&RREAU 
COUR DE MEMOIRE" ,E,6, "&UNE nn H7",2,2 
30870 DATA U&DES MACRODARIVES", 3 "DES DISQU 
ETTES",5,8,"&DES RONS LOGITIELS",0,9 

20390 DATA FORT FOUR CARTOUCHES",1,6,'"&DES 
FURTS JOYSTICE",1,7,"&UN ASSEMRLEU R",2,1 
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20390 DATA "SUN FORT CENTRONICS",2,5, "&UN FOR 
Ds Ou &DE L''EXFANDARILITE", 4,9, RUN K 
ya y 4 
“ PEUN CPU LéEhTr TT", 1,7, "&DE LA MULTI 
TACHE TE, 6 a RUN HUN SERVICE", 1,9 
AOGLO DATA MAIMENRIEZ VOUS", ÉOURQUOT FAST, CET 
MOVOULEZ-VOUS", DÉSIREZ VOUS", "/%x IMPORTANT" 
2065 MEON MARCHE", UPS CHER" 
CHER, 1 QUTEUX 
“nc "IDM FC",7,68,68,9,8,4,0,0,9,93 747; 
7508 te ee Po D 8 7 
0650 DATA PAPE TORISHA", 6,7,6,6,64,9,9,0,0,8 
DD 30 05058383 V9 37 
0660 DATA MSINCLEAR EL 9,949 37 070880 00% 0 Ÿ 9 © y 
VENEUETAT INTEL IEEE 
0670 DATA MACHRON ILLUSTON",68,7 636,047 
“5 3 À y (a) 5 © 8 À y À 9 4, 3 QD, D, 
1680 DATA ! RANANE ITÉ".,5,5,2,5.0,4:6,0,3,0,3 
15 4 À 9 À 9 6 5 7 y € 4 À y Cd y 4 
30690 DATA "ST ELITE",68,68, 847 0 7 9 68 y 6 9 © 9 Jp 7 y € 
0 4 À à 6 9 7 9 C9 y CD y C3 y C9 
20700 DATA COLECTOVTISTON Es ob pd 9 de y ed y Sd gd y a y 
als 0 0 6 030,030 
30710 DATA "CANDY COLOURED COMPUTER", 7,6,4,4%) 
040 08 9 2 9 09 8 0 y © 9 8 y C7 y 9 9 O5 © 
30720 DATA "COMMANDANT 640,2, 68090707 0 6 y y On © y 
D 65730505 85 8 3 À 5 0 5 À 9 6 
20730 DATA “ATRIA 6006T",1,8,8,5,0,2,5,0,7,7, 
757500365630 00,0 
40740 DATA 10,9,6 7 8 dy 4 y 8 y ue y 
4070 DATA “J'AI BIEN FEUR QUE VOUS DEFASSTIEZ 
VOTRE RUDGET" 
40760 DATA "CES SFECIFICATIONS SEMRLENT 
EXEDER VOTRE RUDGET" 
30770 DATA "JE NE PENSE FAS QUE VOUS FUISSTEZ 
VOUS OFFRIR UN TEL LUXE" 
30780 DATA MEXCUSEZ MOT, MAIS J'ENTENDS 
LE TELEFHONE SONNÉR" 
30790 DATA "J'AT UN SANGLIER SUR LE FEU" 
40800 DATA MON FERME À SIX HEURES" 
30810 DATA "FOURQUOT FAS LE "UN CHOIX KHON M 
ARCHE SERAIT LE !" 
30820 DATA UUN RON KAFPORT QUALITE/FRIX FOUR 
LE" 
30830 DATA "ST VOULEZ DU FREMIER CHOIX 
PRENEZ LE" 
30840 DATA "DANS L'ETAT ACTUEL DE LA TECHNLOG 


210 Intelligence artificielle sur Sinclair QL 


IE, ON NE PEUT RATTRE LE" 
: MO DATA "ST VOUS VOULEZ UNE KOLLS ROVCE JE 
TEZ UN OEIL AU" 
AOGOO FÜR N&OQ TO UE 
308970 READ QE (N) 
16380 END FOFON 
y è NM: TOI AJYX 


pr 
READ AJ (N) 
END FOR N 

FOR NeO TO NJ% 
READ NJ# (N) 
END FOR N 

FOR N=0 TO AVX 
READ AVX (N) 
END FOR N 

FOR Næ0 TO NV% 
READ NV# (N) 
END FOR N 

FOR N=O TO LI% 
READ LI (N) 
END FOR N 
31040 FOR N=O TO DLX 
31050 READ DL (N) 
31060 END FOR N 
31070 FOR N=0 TO Q% 
31080 READ O#(N) 
31090 READ CR(N) 
31100 READ FR(N) 
31110 END FOR N 
31120 FOR N=0 TO QPX 
31130 READ OF# (N) 
31140 END FOR N 
31150 FOR N=0 TO HM% 
31160 READ HM# (N) 
31170 END FOR N 
31180 FOR N=0 TO CO% 
31190 READ CO# (N) 
31200 FOR M=0 TO FE% 
31210 READ FE(N,M) 
31220 END FOR M 
31230 END FOR N 
31240 FOR N=0 TO CTX 
31250 READ C(N) 
31260 END FOR N 
31270 FOR N=0 TO CS% 
31280 READ CS# (N) 
31290 END FOR N 
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FO Neo TC EX" 
RE AD EX CN) 

END FOR N 

FC Neo TO LOX 
FEAT) LCI CN) 

ND FOK N 

"OR Neo TO HIX 
RE AD HI CN) 

END FOR N 

A0 

END DEÉFinme INIT 
DÉFine FRKOQCedue XX 


WINDOW 42,470, 240,5, LS 
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votre élève et votre professeur. 
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